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Вступ 


УВА (Уізиаі Вазіс ґог Арріісайопз) - об’єктно-орієнтована мова 
програмування загального призначення, яка розроблена Місгозой. 
УВА проста для вивчення, орієнтована на ш в ид ке розроблення 
програмного забезпечення (КАБ) і часто використовується як мова 
сценаріїв (макросів) в різноманітних програмних продуктах (САПР, 
СКБД, офісних пакетах тощо), або як мова для системної інтеграції 
("склеювання") різноманітних програмних компонентів (рис. 1). 



Рисунок 1 - Особливості мови УВА 


УВА основана на технології СОМ і дозволяє просто 
використовувати доступні СОМ-об’єкти та компоненти АсПусХ. 
СОМ (Сотропепі Оіцссі МосісІ) - платформа компонентно- 
орієнтованого програмування, яка використовується в ОС \Уіпбо\¥8. 
Підтримує повторене використання і можливість взаємодії об’єктів 
незалежно від мови програмування, на якій вони були розроблені. 
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Основними елементами СОМ є: об’єкт СОМ (екземпляр класу СОМ 
в сервері СОМ), сервер СОМ (програма, яка організовує доступ до 
створеного в ній об’єкта СОМ, реалізуючи інтерфейси), клієнт СОМ 
(програма, яка, використовуючи інтерфейс, отримує доступ до 
об’єкта СОМ), інтерфейс СОМ (визначає відкриті методи, які 
використовуються для доступу до об’єкта СОМ), клас СОМ 
(реалізація інтерфейсу СОМ в сервері СОМ). На СОМ основана 
технологія універсальних програмних компонентів АсііуєХ та 
технологія міжпроцесової взаємодії ОЬЕ Аиїотаїїоп. 

УВА вбудована як мова сценаріїв або має доступ до програмних 
інтерфейсів таких продуктів як Місто 8 о ЇЇ Оїїїсе (\У огсі, Ехсеї, 
Ро\¥СгРоіпІ, Ассє88 тощо), СогеїїЖА\У, МаїІаЬ, Маріє, 
80ЕЮ\¥СЖК8, АиІоСАО, ЕЕМАР, САТІА У5, Аиїосісзк іпуєпіог, 
РТС Сгео, 8о1ісІЕсІ§е. Завдяки цьому УВА часто використовується 
інженерами. 

Більшість програм мовою УВА розробляються в зручному 
інтегрованому середовищі розробки (ГОЕ) - редакторі УІ8иа1 Ва8Іс, 
який має підказку коду, переглядач об’єктів, відлагоджувач, 
дизайнер графічного інтерфейсу користувача (СІЛ). Програма 
мовою УВА інтерпретується, а не компілюється. 

УВА тісно пов’язана з мовою програмування Уізиаі Вазіс і є її 
дещо спрощеною реалізацією. Також УВА має багато спільного з 
УВЗсгірї - мовою сценаріїв, що використовує технологію Асїіує 
8 сгірїіп§. Наступним кроком еволюції Уізиаі Вазіс є УізиаІ Вазіс 
.ИЕТ, що використовує сучасну платформу Місгозоїї .ХЕТ. 

Недоліками УВА є те, що це пропрієтарне програмне 
забезпечення і не кросплатформове (в основному підтримується 
тільки \¥іпс1о\У8). Також УВА має дещо обмежені можливості у 
порівнянні з більш сучасними мовами сценаріїв (РуїЬоп, КиЬу, 
1 ауа8сгірї), які розвиваються більш інтенсивно. 

Основна мета цього посібника - швидке ознайомлення з 
основними можливостями УВА для створення прикладного 
інженерного програмного забезпечення. Розглянуто основи 
програмування, створення програм з графічним інтерфейсом 
користувача (СІЛ), використання СОМ-об'єктів для роботи з 
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офісними програмами (Ехсеї, \Уогс1), сервером сценаріїв \Уііккн¥8, 
САПР (80РІБ\\ЮКК8, 80РІБ\У(ЖК8 8ітиІаїіоп), математичним 
пакетом МАТРАВ, доступу до даних (Місго 80 Й БАО, Місю 80 Й 
АБО, М8хт12.БОМБоситеп1;) та інше. Книга також може бути 
використана як короткий довідник з УВА. Посібник призначено для 
тих, хто уже володіє основами програмування якою-небудь 
алгоритмічною мовою. Паралельно з посібником автор рекомендує 
використовувати літературу [1-46] для глибшого освоєння 
матеріалу. Початківцям у першу чергу слід ознайомитись з книгами 
[19, 22, 25, 26, ЗО, 35, 36, 38, 39] для вивчення основ УВА або Уізиаі 
Вазіс. Книги [5, 20, 29, 45] містять інформацію практично з усіх 
аспектів мови УВА і мають довідковий характер. Користуйтесь 
також вбудованою допомогою (клавіша Р1) або опііпе-довідником 
[37]. Для використання певної бібліотеки компонентів в вашій 
програмі клацніть на меню Т о о 18 / й с 1 с г с п се 8... і виберіть цю 
бібліотеку (рис. 2). Для отримання довідкової інформації про 
бібліотеку або її компонент клацніть на меню Уіс\\70ЬіссГ Вш\¥8ег 
(або натисніть Р2). В вікні ОЬіссї Вш\¥8сг виберіть потрібний 
компонент і внизу з’явиться коротка довідка (рис. 3). Для детальної 
довідки виберіть Неір в контекстному меню (рис. 3). 


Кеїегепсез - УВАРгоіесІ 


*] 


АуаіІаЬІе Ке(егепсез: 


* УізиаІ Вазіс Рог АррІісаЬоп 5 

У МісгозоЙ Ехсеї 11.0 ОЬ]ес 1 УЬгагу 
У ОІ.Е АиїотаЬоп 

* МісгозоЙ ОРРісе 11.0 ОЬ]ес 1 иЬгагу 

V МісгозоЙ Рогт 5 2.0 ОЬ]ес 1 УЬгагу 
У МісгозоЙ УУ/огсЛ 11.0 ОЬ]ес 1 УЬгагу 

* МісгозоЙ БАО 3.6 ОЬ]ЄСІ УЬгагу 

* МісгозоЙ АсЬуєХ Оаіа ОЬ]есїз 2.7 УЬгагу 
У МісгозоЙ БстірЬпд ЯипЬте 

У МісгозоЙ Заїрі Сопігої 1.0 

V МісгозоЙ 'Л’іпсіол'З Ітаде АсдиізіЬоп УЬгагу у2.0 

V МісгозоЙ ЗреесН ОЬ]ес 1 УЬгагу 

V МІСГ050Й Іпіегпеї Сопйоіз 
ІУІ ріаозоЙ 5ИеІІ Сопйоіз 


^псі А 


З 



2 ^ 

Ргіогіїу 

А] 


ОК 
СапсеІ 

Вгоілізє... 


Неір 


МіаозоЙ ХМІ_, у 5.0 

і-осаіюп: С: ^годгат Рііез (х 8 б) уіоттоп Рііез У^ісгозой ЗЬагегі \ОРРІС 

І.апдиаде: ЗІапгіагЬ 


Рисунок 2 - Додання бібліотеки компонентів 
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5ее АІзо Ехатріе 5рес з 

К.еІигпз а Зїгіпд сопїаіпіпд їЬе 
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сосіез. Рог ехатріе, СЬг(10) 
геїигпз а Ііпе^ееЬ сЬагасіег. ТЬе 
погтаї гапде ^ог сЬагсосіе із 0 - 


Рисунок 3 - ВІКНО О^еСІ ВГ0\У8ЄГ І довідка про функцію СІ 1 Г 


Приклади програм містять коментарі, що надруковані курсивом 
після символу ’ (апостроф). Ці коментарі не виконуються 
інтерпретатором. Код програм і результати їх виведення 
надруковані моноширинним шрифтом так: 


код програми ' коментар _ 

текст виведення програми 

Вихідний код усіх прикладів доступний для вільного 
завантаження на СіїНиЬ (Инр8://«йИііЬ.сотЛ'корсу/У ВА-їог- 
еп§іпеег8). В навчальному посібнику розглядаються версії УВА 6-7. 
Щоб розпочати вивчення УВА на комп’ютері достатньо мати 
установлений Ехсеї 2003 або вище. 

Автор буде вдячний читачам за зроблені зауваження і 
побажання, які можна залишити на сайті проекту в СіїНиЬ. 
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РОЗДІЛ 1. ОСНОВИ ПРОГРАМУВАННЯ МОВОЮ УВА 


Найпростіша програма 

Наступна програма виводить на екран "Неііо іл/огісі!". Для 
створення програми відкрийте Ехсеї і виберіть в меню 
Сервис/Макрос/Редактор Уізиаі Вазіс (або натисніть АІІ+Р11). Щоб 
додати новий модуль виберіть в меню ІшсгГМосІиІс. Можна 
переіменувати модуль в "Неііо" у вікні Ргорегііез (рис. 1.1). Щоб 
додати в модуль процедуру виберіть в меню Іпзегі/Ргосесіиге... і 
назвіть її таіп (рис. 1.2). 


МістоїоЛ \Л5иаІ Ваїіс - УВА_еха т рІеб.хЬ - [НеІІо (Сміє)] — І□ І х| 

Рііе Есіії Іпзегі Рогтаї ОеЬид Кип Тооіз Агісі-Іпз УУ/іпсіоуу Неір - і? X 


іВ^’Ніх^аміппі ► м ■ м & **■ *. 0 

Ргодесі - УВАРгодесі Х| 

|(СепегаІ) |таіп 

віаїН ї 


РиЬІіс 5иЬ таіп() “ 

ВеЬид.Ргіпі: "НеІІо \*ог1сі!" 

Епсі 5иЬ 

РипсІ | 

41Ж —і 

^ Іпіегпеї Ехріоге ▼ | 

<і і >г 

Ргорегйез - НеІІо х| 

| НеІІо МоЬиІе ^| 

АІрНаЬеЬс | Саіедогігесі | 

Ітте<1іаїе Х| 

НеІІо 

НеІІо юогісі! _±_ 


АА 


Рисунок 1.1 - Вигляд редактора Уізиаі Вазіс 
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АсІсІ Ргосесіиге 


*] 


№те: | таіп 
Туре 
(• БиЬ 
РипсЬоп 
Ргорегїу 

5соре 
<5- РиЬІіс 
Ргіуаїе 


ОК 
СапсеІ 


Г~ АІІ 1_осаІ уагіаЬІез аз Зіайсз 

Рисунок 1.2 - Створення нової процедури таіп 

З’явиться заготовка процедури без тіла. Введіть в процедуру код 

0еЬи§.Ргіп1: "Неііо июгісі!": 


РиЬІіс 5иЬ таіп() 
0еЬи§.Ргіп1: "Неііо \л/ог1сІ!" 

Епсі БиЬ 


Виконайте програму через меню Кип/Кип 8иЬ... (або натисніть 
Р5). Якщо курсор знаходиться не в середині процедури таіп, то 
з’явиться вікно з запитом, де слід вибрати назву процедури, яку ви 
бажаєте виконати. Виберіть таіп і натисніть кнопку Кип. Результат 
команди ОеЬи§. РгіггЬ з’явиться в вікні Іттесііаіе (рис. 1.1) 

Типи даних 

Дане - иоіменована область оперативної пам’яті, в якій 
зберігається значення певного типу. Даному характерні ім’я, адреса, 
тип і значення. Змінна - це дане, значення якого може змінюватися 
протягом виконання програми. Тип даних визначає допустимі 
значення даного, а також операції, які можуть виконуватись над 
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ним. Основними типами даних змінних в УВА є Вуіе, Вооіеап, 
Іпіе^ег, І_оп§, 5іп§1е, ОоиЬІе, Оаіе, ОЬ^есІ:, 51:гіп§, Уагіапі. 
Користувач може визначати нові типи даних за допомогою 
оператора Туре. 

Як правило для оголошення змінних використовується оператор 
Оіт. Якщо користувач не оголосив змінну, то її тип буде Уагіапі. 
Наявність в модулі оператора Орііоп Ехріісіі вимагає явного 
оголошення усіх змінних модуля операторами Оіт, Ргіуаіе, 
РиЬІіс, КеОіт, зіаііс. Змінна доступна там, де вона оголошена. 
Якщо змінна оголошена оператором РиЬІіс, то вона 
загальнодоступна. Змінна, оголошена оператором зіаіііс в 
процедурі, зберігає своє значення після виходу з процедури. 


’Орїіоп Ехріісії 

РеТЗІїг 5 'змінні, назва яких починається з 5, мають тип 
зігіпд 

'описати змінні з типом: 

Ріш іі Аб Вуіе 'байт (коротке ціле від 0 до 255, розміром 
1 байт) 

Ріт Ь Аб Вооіеап 'логічний (булевий) (значення: ігие (або 
1), /оі .бє (або 0)) 

Ріт І2 Аб Іпіе^ег 'цілий (ціле в межах +-32768, розміром 2 
байти) 

Ріт ІЗ Аб І.ОП8 'довгий цілий (розміром 4 байти) 

Ріт хі Аб 5іп§;1е 'дійсний звичайної точності (розміром 4 
байти) 

Ріт х, у Аб РоиЬІе 'дійсний подвійної точності (розміром 8 
байт) 

Ріт сі Аб Раіе 'календарна дата (розміром 8 байт) 

Ріт оЬ) Аб ОЬ]ес1: 'об'єкт (розміром 4 байти) 

Ріт оЬз‘2 Аб ІМем ІлІогкБМееІ: 'об'єкт робочий лист Ехсеі 
Ріт б Аб 5±гіп§ 'рядок 

Ріт б2 Аб 51:гіп£ * 10 'рядок розміром 10 символів 
Ріт х2 Аб Уагіапі: 'числові підтипи (розміром 16 байт) 
Ргіуаіе Туре Біисіепі: 'тип користувача, який описує поняття 
студента - _ 
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питЬег А5 Іпіе£ег 'його номер залікової книжки 
пате Аб Зігіпе 'і ім'я 
ЕпсІ Туре 'кінець опису типу 

Оіт оЬ^З Аб БІіисІепі; 'описати змінну оЬ^З з типом зїидепї 
Сопбі: бЗ = 'Неііо!" 'константа 

РиЬІіс Сопбі рі Аб ОоиЬІе = 3.14 'константа, видима в усіх 
модулях 

РиЬІіс 5иЬ таіп() ’ підпрограма-процедура з іменем таіп, 
'видима в усіх модулях проекту 
'присвоїти змінним значення 

11 = 1 'ціле 

Ь = Тгие 'логічне 

12 = 12500 'ціле 

13 = 256132 'ціле 
хі = 5.124 'дійсне 
х = 34.345 'дійсне 
у = -25.684 'дійсне 

6 = Раіе 'присвоїти поточну дату, наприклад 21.09.2008 
'присвоїти об'єкту обі вказівник на активну комірку Ехсеі 
5еі оЬі = Ехсеі.А сііуєСєіі 

оЬз'.УаІие = 1 'присвоїти властивості \/аіие значення 1 

б = "Иеііо могісі!" 'рядок 

= "Програмування на УВА" 'рядок 
х2 = 54.76 'дійсне 

хЗ = 398 'ціле (змінна хЗ не описана, тому її тип 

\/агіапї). Змінна буде не визначена, якщо забрати примітку 

з Орїіоп Ехріісії на початку модуля. 

оЬ^‘3. питЬег = 1 'полю питЬег ціле 

оЬ]'3.пате = "Іванов" 'полю пате рядок 

'вивести значення даних у вікно Іттесііаїе 

ОеЬи§.Ргіпі іі; Ь; І2; ІЗ; хі; х; у; д; оЬ].Уа1ие; б; Е$; 

х2; хЗ; оЬ^З-пате 

ЕпсІ 5иЬ 'кінець підпрограми таіп 

Зміна у $Е$47 

1 Тгие 12500 256132 5,124 34,345 -25,684 25.08.2018 1 

Ьеііо и/огісі! Програмування на УВА 54,76 398 Іванов 
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Відлагодження програм 


Під час створення програм нерідко виникають помилки (Ьи§з). 
Помилки поділяються на помилки компіляції (виникають під час 
трансляції програми або процедури), помилки часу виконання 
(виникають під час виконання програми) та логічні помилки 
(програма працює, але не так як потрібно). Помилки компіляції 
легко виявляються редактором коду або компілятором. Засобами 
виявлення помилок часу виконання і логічних помилок є: 
відлагодження (беЬи§), засоби обробки виключних ситуацій мови 
програмування, зміна методики програмування, тестування 
програм. Засоби відлагодження доступні в меню ОеЬи§ та на панелі 
БеЬіі^ (рис. 1.3) [28, 29, 32]. За допомогою них можна 
призупинити/відновити виконання програми в потрібному місці 
(То§§1е ВгеакроіпЦ Вгеак, Кип), виконувати програму в 
покроковому режимі (8іер Іпіо, 8іер Оуєг, 8 іер Оиі), переглядати 
значення змінних і виразів (Ьосаіз \\чпс1о\¥, \УаГсЬ \Уіпсіо\\', 
Ігшпесііаіе \Уіпс1о\у), змінювати значення змінних (Таїсії Шіпсіоху), 
переглядати стек викликів (Саіі 8іаск). 

Для ознайомлення з ОеЬи§ виконайте наступні дії: 

1. Створіть модуль з попереднім прикладом. 

2. Поставте точку зупинки в довільному місці процедури таіп 
(То§§1е Вгеакроіпі). 

3. Запустіть програму (Кип). 

4. Перегляньте вміст вікон на рис. 1.3. 

5. Змініть значення довільної змінної у вікні \Уаіс1іе8. 

6 . Виконайте кілька кроків програми (8іер Іпіо або Р8). 

7. Виконайте програму до кінця (Кип). 

8 . Перегляньте вміст вікна Ітпіесііаіе. 
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УВ АРго^егі. Могіиіе 1. таіп 
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МскІиІеІЛИскІиІеІ 



- Ь 
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- б 
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1 
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1 

Іпіедег 



— Рі 

3,14 

ОоиЬІе 
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■ 

Зігіпд * 10 
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"НеІІоГ 

Зігіпд 
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34,345 

Х/агіапі/ОоиЬІе 



- ХІ 

5,124 

Зіпдіе 



— х2 
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Уапапі/ОоцЬІе 
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-25,664 

ОоиЬІе 


і 

"Програмування не Зігіпд 


хЗ 
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Уагіапі/Іпіедег 

-ч 




—1 


УІ/аїсЬез 





1 Ехргеззіоп 

1 Уаіие 

І Туре 

1 Сопіехі 

▲ 

25 хЗ 

Етріу 

Уагіапі/Етріу 

Мойиіеі.таіп 

1 


СаІІ 51а ск 


*] 


Ргоіесі. Могіиіе. РипсЬоп 


УВАРгоіесі.МосіиІе І.таіп 


ЗНоуу | 

СІ05Є | 


Рисунок 1.3 - Панель ОеЬи§ і вікна Ьосаіз, \Уаїс1іе$, СаІІ 8іаск 
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Арифметичні оператори 


В прикладі показані найбільш уживані арифметичні оператори: 
додавання, віднімання, множення, ділення тощо. Ви можете 
переглядати значення змінної "с" в режимі відлагодження у вікні 
\Уа(сЬе8. 


Ріт А, Ь, с Аз РоиЬІе 

РиЬІіс БиЬ таіп() 

А = 3: Ь = 2 
с = А + Ь 'додавання с=5 
с = А - Ь ' віднімання с=1 
с = -А 'зміна знаку с=-3 
с = А * Ь 'множення с=6 
с = А / Ь 'ділення с=1,5 
с = А \ Ь ' цілочисельне ділення с=1 
с = А МосІ Ь 'остача від ділення с=1 
с = А л Ь 'піднесення до степеня с=9 
Е псі БиЬ 


Оператори порівняння і логічні оператори 

В прикладі показано використання операторів порівняння (<, >, 
>= тощо) і логічних операторів (АпсІ, Ог, ІЧоІ: тощо). Ці оператори 
використовуються в логічних виразах, результатом яких є значення 
типу Вооіеап (Тгие або Раїзе). Ви можете переглядати значення 
змінної с в режимі відлагодження у вікні \Уаіс1іе8. 


Ріт х, у Аз РоиЬІе 
Ріт А, Ь, с Аз Вооіеап 

РиЬІіс БиЬ таіп() 
х = 2: у = З 
А = Тгие: Ь = Раїзе 
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с = х > у 'більше: с=Раізе 

с = х < у 'менше: с=Тгие 

с = х >= у 'більше дорівнює: с=Баі5Є 

с = х <= у 'менше дорівнює: с=Тгие 

с = х о у 'не дорівнює: с=Тгие 

с = х = у 'дорівнює: с=Раізе 

с = А АпсІ Ь 'логічне "І": с=Баізе 

с = А Ог Ь 'логічне "АБО": с=Тгие 

с = N01: А 'логічне "НЕ": с=Раіве 

с = А Хог Ь 'виключна диз^юнкція: с=Тгие 

Епсі 5иЬ 


Пріоритет операторів 

Пріоритетом операторів називають порядок їх виконання в 
складних виразах. Спочатку виконуються арифметичні оператори, 
потім - оператори порівняння, а потім - логічні оператори. Якщо 
оператори мають однаковий пріоритет, то вони виконуються зліва 
направо. Пріоритет операторів: 

• виклик функції і дужки; 

• Л ; 

• - (зміна знаку); 

•*,/; 

• \; 

• МосІ; 

• 

• оператори порівняння (мають однаковий пріоритет); 

• логічні оператори (в порядку N01:, АпсІ, Ог, Хог, Е^V, Ітр). 


Ріт х, у Аз РоиЬІе 
Ріт Ь Аз Вооіеап 

РиЬІіс 5иЬ таіп() 
х = 1: у = 2 

'обчислення цього виразу виконується за правилом 
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пріоритету операторів 


Ь = (х л (2 + х) + 1) / (х * Соз (х + 

1) - х) + х = 1 Ог 

у у 0 


РеЬи§.Ргіпі: Ь 


'Апд має вищий пріоритет, Ог - нижчий 


РеЬи§.Ргіпі: Тгие Ог Раїяе АпсІ Раїяе ' 

Тгие 

РеЬи§.Ргіпі: (Тгие Ог Раїяе) АпсІ Раїяе 

' Таі5Є 

ЕпсІ 5иЬ 



Тгие 

Тгие 

Раїяе 


Оператор безумовного переходу СоТо 

Виконання оператора безумовного переходу СоТо <мітка> 
призводить до переходу на рядок процедури, який позначений 
міткою <мітка>. Не рекомендується часто використовувати цей 
оператор у складних алгоритмах, оскільки це ускладнює їх 
розуміння і відлагодження. 


РиЬІіс 5иЬ таіп() 
х = 1 
У = 2 

Н х = 1 ТИеп СоТо 10 'якщо х=1, перейти на рядок 10 
у = З 

10 РеЬи§. Ргіпі: у 'рядок з міткою 10 

ЕпсІ 5иЬ _ 

2 


Оператор умови ІТ-ТЬеп-ЕІ8Є 

Оператор умови І-р <умова> Тбеп <командну виконує 
<командну тільки тоді, коли значення логічного виразу <умовау 
рівне Тгие (істина). Інструкція І-р може застосовуватись з ЕІзеІ-р 
та/або Еізе. Якщо значення логічного виразу рівне Раїзе (не 
істина), то виконується інструкція ЕІзеІ-р, або, якщо її немає, 
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виконується Еізе. Послідовних інструкцій ЕІ5ЄІР може бути 
довільна кількість. Кінець блоку ІР позначається Епсі ІР. 


Ріт А; х, у А5 РоиЬІе 

РиЬІіс 5иЬ таіп() 
х = 2: А = 1 

'_ 1-й варіант конструкції _ 

І-р х > 0 ТИеп у = х + А 'якщо х>0, то у=х+а 

' _ 2-й варіант конструкції _ 

ІР х > 0 ТИеп у = х + А Еібє у = х - А 'якщо х>0, то 

у=х+а } інакше у=х-а 

' _ 3-й варіант конструкції _ 

ІР х > 0 ТИеп 'якщо х>0, то 
А = 2 
у = х + А 
Еіяе 'інакше 
А = 1 
у = х - А 

ЕпсІ ІР 'кінець умови 

' _ 4-й варіант конструкції _ 

ІР х > 0 ТИеп 'якщо x>0 ^ то 
А = 2 
у = х + А 

ЕІ5ЄІР х < 0 АпсІ х >= -5 ТИеп 'інакше ^ якщо х<0 і x>=-5 ^ 
то 

А = 1 
у = х - А 
Еібє 'інакше 
у = 0 

ЕпсІ ІР 'кінець умови 

ЕпсІ 5иЬ 
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Оператор вибору 8е1есї Сазе 


Оператор вибору 5е1есі Сазе <змінна> дозволяє виконувати 
певні команди в залежності від значення змінної <змінна>. Якщо 
змінна рівна певному значенню, що перевіряється командою Сазе 
<умови>, то виконуються команди нижче. Якщо змінна не рівна 
жодному значенню, то виконуються команди після слів Сазе 
Еізе. Цей оператор дозволяє уникати застосування складних 
інструкцій ГР-ЕІзеГР. 


Ріт х, у Аз РоиЬІе 

РиЬІіс 5иЬ таіп() 
х = 2.7 

Беїесі: Сазе х 'вибір стосується змінної ’х' 

Са5Є 1.5 'якщо х=1.5, то 

у = 7.4 

Сазе 2 То 2.7, З, І5 > 4 'якщо 2<=х<=2.7 або х=3 або х>4, 
то 

у = 3.2 

Са5Є ЕІ5Є 'у інших випдках 
у = 0 

ЕпсІ Беїесі: 'кінець вибору 
РеЬи§.Ргіпі; у 
ЕпсІ 5иЬ 


Функції вибору 

Функції вибору (ІІ-р, Сбоозе, 5\л/і1:сіі) призначені для вибору 
значення зі списку в залежності від заданих умов. В деяких 
випадках вони дозволяють суттєво змен ш ити об’єм коду програми 
шляхом уникнення застосування операторів І-р-Тіїеп-ЕІзе та 
Беїесі: Сазе. 


Оіт х, у Аз РоиЬІе 
Ріт і А5 Іпіееег 
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РиЬІіс 5иЬ таіп() 
х = 1.5: і = 2 

у = ІІ-Р(х = 1.5, 6, 0) 'якщо умова істинна, то повертає 6, 
інакше 0 

у = СИоо5е(і, 4.6, 3.7 , 8, 10.2) 'якщо і=1, то у=4.6, якщо 
і =2, то у=3.7, і т.д. 

у = 5мі1:сИ(х = 0.5, 0.2, х = 1.5, 4.1) 'якщо х=0.5, то 
повертає 0.2, якщо х=1.5, то повертає 4.1 

ЕпсІ 5иЬ 


Оператори циклу Ког-№хІ 

Оператори циклу призначені для циклічного виконання 
заданого блоку команд. Оператор циклу Рог-То-Мехі: циклічно 
виконує блок команд, поки змінна циклу не досягне заданого 
значення. На кожній ітерації змінна циклу збільшує своє значення 
на 1, але дозволяється вказувати довільний крок після слова 51:ер. 
Оператор циклу Роп -Еасії -Мехі: циклічно виконує блок команд, 
для кожного елемента в масиві або колекції. 


Оіт і, 5 Аб Іпіе^ег 
Оіт х, у Аб ОоиЬІе 
Оіт оЬО Аб ОЬ]есі: 

РиЬІіс 5иЬ таіп() 

'Приклад 1: знайти суму цілих чисел від 1 до 100 
5=0 'присвоїти сумі 0 

Рог і = 1 То 100 'і змінюється від 1 до 100 
5 = 5 + і ' додати до суми 'і' 

N6x1: і 'наступне 'і' 

РеЬи§.Ргіпі: б 'вивести 

'Приклад 2: вивести таблицю значень у=5іп(х), якщо 'х' 
змінюється від 0 до 1 з кроком 0.1 

Рог х = 0 То 1 5іер 0.1 'х змінюється від 0 до 1 з кроком 
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0.1 

у = 5іп(х) 'обчислення функції 
РеЬи§.Ргіпі: "х="; х; "у="; у 'вивести 
Мехі: х 'наступне 'х' 

'Приклад 3: знайти індекс елемента масиву зі значенням 7 
А = Аггау(2, 5, 7 , 1) 'масив 
Рог і = 0 То 3 'і змінюється від 0 до З 

'якщо елемент рівний 7, то вивести індекс і вийти з 
циклу 

І-р А(і) = 7 ТИеп РеЬи§.Ргіпі: і: ЕхіТ Рог 
Мехі: і 'наступне 'і' 

'Приклад 4: вивести елементи масиву А 
Рог ЕасИ х Іп А 'для кожного х у А 
ОеЬи§.Ргіпі: х; 'вивести 
N0x1: х 'наступний х 

'Приклад 5: вивести в комірки А1:А5 1 

Рог ЕасИ оЬ^ Іп Кап§е("А1:А5") 'для кожного об'єкта оЬй у 
діапазоні комірок 

оЬ^.УаІие = 1 'присвоїти значенню комірки 1 
N0x1: оЬ^ 'наступний об'єкт 

ЕпсІ 5иЬ 


5050 
х= 0 у= 

= 0 


х= 

0,1 

У= 

9,98334166468282Е-02 

х= 

0,2 

У= 

0,198669330795061 

х= 

0,3 

У= 

0,29552020666134 

х= 

0,4 

У= 

0,389418342308651 

х= 

0,5 

У= 

0,479425538604203 

х= 

0,6 

У= 

0,564642473395035 

х= 

0,7 

У= 

0,644217687237691 

х= 

0,8 

У= 

0,717356090899523 

х= 

0,9 

У= 

0,783326909627483 

х= 

2 

1 у= 

= 0, 

841470984807896 
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2571 Зміна у $А$1 
Зміна у $А$2 
Зміна у $А$3 
Зміна у $А$4 
Зміна у $А$5 


Оператор циклу \¥Ьі1е-ДУеий 

Оператор циклу іліЬііє-ілієпсі (цикл з передумовою) циклічно 
виконує блок команд, поки значення заданого логічного виразу 
істинне. Спочатку обчислюється значення логічного вразу, а потім 
виконується блок команд, який завершується словом ілієпсі. 


РІШ І, 5 А5 Іпіе^ег 
РиЬІіс 5иЬ таіп() 

'знайти суму цілих чисел від 1 до 100 
5=0 'сума = 0 
і = 1 'перше число 

ІліНіІе і <= 100 'поки і менше рівне 100 

5 = 5 + і ' додати до суми 'і' 

і = і + 1 'наступне 'і' 

ілієпсі 'повторити 

РеЬи§.Ргіпі 5 'вивести суму 

ЕпсІ 5иЬ _ 

5050 


Оператори циклу Бо-Ьоор 

Оператор циклу Оо-Іоор-ІліЬіІе (цикл з післяумовою) 
циклічно виконує блок команд, поки значення заданого логічного 
виразу істинне. Спочатку виконується блок команд, а потім 
обчислюється значення логічного вразу. 

Оператор циклу Оо-іліііііе-і-оор (цикл з передумовою) 
циклічно виконує блок команд, поки значення заданого логічного 
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виразу істинне. Спочатку обчислюється значення логічного вразу, а 
потім виконується блок команд, який завершується словом І_оор. 


Ріт і, 5 Аз ІгтЬе^ег 
РиЬІіс 5иЬ таіп() 

'Приклад 1: знайти суму цілих чисел від 1 до 100 
з=0 'сума = 0 
і = 1 'перше число 
Оо 'виконувати цикл 
5 = 5 + і ' додати до суми ' і ' 
і = і + 1 'наступне 'і' 

і-оор ІлІНіїе і <= 100 'повторювати ^ поки 'і' менше рівне 100 
РеЬи§. Ргіпі: 5 'вивести суму 

'Приклад 2: знайти суму цілих чисел від 1 до 100 
5=0 'сума = 0 
і = 1 'перше число 

Оо ІліЬіІе і<=100 'виконувати цикл, поки 'і' менше рівне 100 
5 = 5 + і ' додати до суми ' і' 
і = і + 1 'наступне 'і' 

І-оор 'повторити 

РеЬи§. Ргіпі; 5 'вивести суму 

ЕпсІ 5иЬ _ 

5050 

5050 

Перехоплення помилок часу виконання 

Оператор Оп Еггоп дозволяє перехоплювати помилки часу 
виконання (ділення на нуль, переповнення та інші). Команда 
ОеЬи§.Аззегі: слогічний вираз> призначена для зупинки 
виконання програми на рядку з цією командою, якщо значення 
логічного виразу рівне Раїзе. Продовжити виконання програми 
можна в звичайному (кнопка Кип або клавіша Р5) або покроковому 
режимі. В прикладі перехоплюються різні помилки і виводиться 
інформація про них за допомогою об’єкта Егт. Спробуйте 
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закоментувати рядок Оп Еггог СоТо НапсІІеЕгтог, щоб 
побачити різницю. 


Ріт х Аз РоиЬІе 

РиЬІіс 5иЬ таіп() 
х = 0 

ОеЬи^.Аззегі х о 0 'якщо ’х' дорівнює 0, призупинити 
виконання 

Оп Еггог СоТо НапсІІеЕггог 'при помилці перейти на мітку 
НапсІІеЕггог 

РеЬи§. Ргіпі 1 / х 'помилка 11 (ділення на нуль) 
х = 1Е+300 * 1Е+300 'помилка 6 (переповнення) 
х = С0Ь1( '0 .12 ) 'помилка 13 (невідповідність типу) 
Егг.Каізе 65535 'створити помилку виконання 65535 
Ехіі 5иЬ 'вийти з підпрограми 
НапсІІеЕггог: 'мітка 

5е1есі Сазе Егг.питЬег 'якщо номер помилки 
Сазе 11 'рівний 11 (ділення на нуль) 
х = 1 'змінити знаменник 
РеЬи§.Ргіпі "Ділення на нуль!" 'вивести 
повідомлення 

Кеяите 'повторити інструкцію з помилкою 
Сазе Еібє 'інший номер 

РеЬи§.Ргіпі Егг.питЬег 'вивести номер помилки 
РеЬи§.Ргіпі Егг.Резсгірііоп 'вивести опис помилки 
ЕпсІ 5е1есі 

Кеяите ІМехі 'перейти на наступну інструкцію за помилкою 

ЕпсІ 5иЬ 

Ділення на нуль! 

1 

6 

Оуєгііом 

13 

Туре тізтаісЬ 
65535 

АррІісаііоп-сІе-РіпесІ ог оЬ^есі-сІе-РіпесІ еггог 
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Підпрограма-процедура 8иЬ 


Процедура - це іменована частина коду програми (підпрограма), 
до якого можна звертатись з інших частин програми. Описується 
процедура за допомогою оператора 5иЬ, після якого вказується 
назва процедури і в дужках описуються її параметри (аргументи). 
Опис процедури завершується словами ЕпсІ 5иЬ. Викликати 
процедуру можна так: <назва> <аргумент1>, <аргумент2>. За 
замовчуванням аргументи передаються в процедуру за посиланням 
(ВуКе-р). Для прикладу значення змінної х, яка передана в 
процедуру за посиланням, може бути змінене в процедурі. Але 
можна передавати аргументи за значенням (Ву\/а1). В цьому 
випадку в процедурі буде створена окрема копія змінної х, і зміна її 
значення не вплине на х. 

Процедуру, описану словом РиЬІіс, можна викликати з будь- 
якого модуля. Змінні, які описані в процедурі оператором Ріт є 
локальними, тобто доступні тільки в цій процедурі. 


Ріш х, у Аб Іпіе^ег 'глобальні змінні 

Ріпі В1(0 То 2), В2(2), В3(2) Аб Іп1:е§ег 'глобальні масиви 

'Головна підпрограма-процедура таіп 
РиЬІіс 5иЬ таіп() 

'Приклад 1 

5ит 2, 3, у 'виклик процедури 5ит з параметрами 2, 3, у 
'або Саіі 5ит(2, 3, у) 

'або 5 ит А:=2, В:=3> С:=у 
РеЬи§.Ргіпі: у 'виведення 'у' 

'Приклад 2 

х = 1: у = 1 

5ит2 х, у 'виклик процедури 5 ит2. Результат: x=3^ у=1 
РеЬи§. Ргіпі: х; у 'виведення 

'Приклад 3 _ 
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В1 (0) = 1: В1(1) = 5: В1(2) = 3 'заповнити масив В1 
В2(0) = 9: В2(1) = 5: В2(2) = 7 'заповнити масив В2 
5итЗ В1, В2, ВЗ 'виклик процедури 5итЗ 
РеЬи^.РгіпІ: В3(0), В3(1), В3(2) 'виведення 

'Приклад 4 

5ит4 2, 3 'виклик процедури 5ит4 
'Приклад 5 

5ит5 1, х , у 'виклик процедури 5ит5 
РеЬи§. Ргіпі х, у 'виведення 
ЕпсІ 5иЬ 'кінець процедури 

'Процедура 5ит 

РиЬІіс 5иЬ 5ит(А, Ь, с Аз Іпіе^ег) 'а ^ Ь, с - параметри 
с = А + Ь 'тіло процедури 
ЕпсІ 5иЬ 'кінець процедури 

'Процедура Бит2 

'Параметр А передається за посиланням (за замовчуванням), 

В - за значенням 

РиЬІіс 5иЬ 5ит2(ВуКе-р А Аз Уагіапі:, ВуУаІ Ь Аб Іп1:е§ег) 
Оіт п Аб Іпіе^ег 'локальна змінна 
п = 2 

А = А + п 'А - синонім 'х' 

Ь = Ь + п 'В - окрема копія 'у' 

ЕпсІ 5иЬ 

'Процедура 5итЗ 

РиЬІіс 5иЬ 5итЗ(А1(), А2(), А3() Аб Іпіе^ег) 'параметри - 
масиви 

Рог і = 0 То 2 

АЗ(і) = А1(і) + А2(і) 'додати масиви А1 і А2 
ІМехі: і 
ЕпсІ 5иЬ 

'Процедура 5ит4 

'Параметр С не обов'язковий, за замовчуванням рівний 1 
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РиЬІіс 5иЬ 5ит4(А, Ь Аб Іпіе^ег, Орііопаї с Аб ІітЬе^ег = 

1 ) 

'якщо не вказано С і А=<3, вийти з процедури 
І-р І5МІ55Іп§(с) АпсІ А = 0 ТЬеп Ехіі 5иЬ 
РеЬи§. Ргіпі: А + Ь + с 'вивести суму 
Епсі 5иЬ 

'Процедура 5 ит5 

РиЬІіс 5иЬ 5ит5(А Аб Іпіееег, РагатАггау г()) 'необмежена 

кількість параметрів 

Рог і = І.Воипсі( 2 ) То ІіВоипсДг) 

2 (і) = 2 (і) + А 'додати до кожного параметра А 
Мехі: і 
Епсі 5иЬ 

5 

3 1 

10 10 10 

6 

4 2 

Підпрограма-функція Гипсііоп 

Підпрограма-функція (або просто функція) подібна на 
процедуру 5иЬ, але описується за допомогою слова Рипсііоп і 
може повертати значення. Для прикладу щоб функція 'Р(х) 
повертала значення х в її тілі повинна бути команда -р=х*х. Якщо 
таку функцію викликати командою у=-р(2), то змінній у буде 
присвоєно 4. 


Оіт у Аб Іпіе^ег 

'Головна підпрограма-процедура таіп 
РиЬІіс 5иЬ таіп() 

у = 5ит(2, 3) 'присвоїти 'у' значення функції 5ит з 

параметрами 2, З 

РеЬи§.Ргіпі: у 'вивести 'у' 

РеЬи§.Ргіпі 5ит2() 'результат: 1 _ 
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РеЬи§. Ргіпі 5ит2() 'результат: 2 
РеЬи§. Ргіпі 5ит2() 'результат: З 
РеЬи§. Ргіпі; Расі(З) 'вивести факторіал З 
ЕпсІ 5иЬ 'кінець процедури 

'Функція 5ит^ яка повертає значення цілого типу 

РиЬІіс Рипсііоп 5ит(А, Ь Аб Іпіееег) Аз Іпіе^ег 'а ^ Ь - 
параметри 

5ит = А + Ь 'повернути суму а + Ь 
ЕпсІ Рипсііоп 'кінець функції 

'Функція з статичною локальною змінною 

РиЬІіс Рипсііоп 5ит2() Аз Іпіе§ег 

5іаііс п Аз Іпіе§>ег 'статична змінна зберігає своє 

значення 

п = п + 1 'змінити значення статичної змінної 
5ит2 = п 'повернути N 

ЕпсІ Рипсііоп 

'Рекурсивна функція (викликає сама себе) для обчислення 
факторіала 

РиЬІіс Рипсііоп Расі(п Аб Іпіе§ег) 

'якщо N < 1 ^ то Расі = 1, інакше викликати Расї(N - 1) і 
помножити на N 

І-р п < 1 ТЬеп Расі = 1 Еізе Расі = Расі(п - 1) * п 
ЕпсІ Рипсііоп 

5 
1 
2 
З 

6 


Масиви 

Масив - це іменований впорядкований набір даних одного типу. 
Масив складається з елементів, кожен з яких доступний за 
унікальним індексом цілого типу. Масиви можуть бути одновимірні 
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і багатовимірні. Оголошуються масиви так само як звичайні змінні, 
але після назви масиву потрібно вказати його максимальний індекс. 
Наприклад Оіт А(2). Масив А буде містити 3 елемента. Якщо в 
дужках нічого не вказано, наприклад Оіт А(), то такий масив 
називається динамічним. Індексація масиву починається з 0, якщо в 
програмі не вказано Орііоп Вазе 1. Звернутись до елементів 
масиву А можна так: А(0),А(1),А(2). 


Оріїіоп Вазе 0 'індексація масивів з нуля 

Оіт А(3) Аз Вуіе 'масив А коротких цілих розміром 4 

Оіт Ь(1 То 2) Аз ОоиЬІе 'масив В дійсних розміром 2 

Оіт с(1 То 2, 1 То 2) Аб Іпіе^ег 'масив С цілих розміром 

2x2 

Оіт сі() Аз Вооіеап 'динамічний масив О логічних 
Оіт Е Аз Уагіапі 'змінна або масив Е типу \/агіапі 

'підпрограма таіп 

РиЬІіс 5иЬ таіп() 

А(0) = 7 'присвоїти елементу масиву А з індексом 0 число 7 
А(1) = 9 1 число 9 

А(2) = 2 2 число 2 

ОеЬи§.Ргіпі "А()="; А(0); А(1); А(2) 'вивести А 
Ь(1) = 3.56 'заповнити масив В 
Ь(2) = 5.78 

ОеЬи§.Ргіпі "В()="; Ь(1); Ь(2) 'вивести В 

с(1, 1) = 5 'присвоїти елементу масиву С з індексами 1 ^ 1 

число 5 

с(1, 2) = 10 '(рядок 1, стовпчик 2) число 10 

с(2, 1) = 20 
с(2, 2) = 15 

РеЬи§.Ргіпі "С()="; с(1„ 1); с(1^ 2) 'вивести С 
РеЬіщ.Ргіпі ; с(2 ^ 1); с(2 ^ 2) 

КеОіт сі (1 То 2) 'змінити розмір динамічного масиву О 
сі( 1 ) = 1 'заповнити масив О 
сі (2) = 0 

Егазе сі 'вивільнити пам'ять для динамічного масиву О 
КеРіт сі( 1 То 2, 1 То 2) 'змінити розмір динамічного масиву 


ЗО 



о 

сі( 1 л 1) = 1 'заповнити масив О 

« 1 ( 1 , 2 ) = 1 

« 1 ( 2 , 1 ) = 0 

« 1 ( 2 , 2 ) = 0 

РеЬи§.Ргіпі "0() = " 

'вкладені цикли для виведення масиву О 

Рог і = І.ВоипсІ(сІ, 1) То ІІВоипсі(сі л 1) 'від першого рядка до 
останнього 

Рог ]' = І.ВоипсІ(сІ, 2) То ІІВоипс1(с1, 2) 'від першого 
стовпника до останнього 

РеЬи§.Ргіпі сІ(і, ]'); " 'вивести значення 
елемента 0(і } з) 

Мехі: і 'наступний стовпчик 
РеЬи§.Ргіпі 

Мехі: і 'наступний рядок 

Е = Аггау(2, 1 , 5, 6, 0) 'заповнити варіантний масив Е 
' ОеЬид.Ргіпі 'перейти на наступний рядок 

РеЬи§.А ббєгі І5Аггау(Е) 'якщо Е не є масивом, призупинити 
виконання програми 

Р 0 Ьи§.Ргіпі "Е()="; Е(0); Е(1); Е(2); Е (3) ; Е(4) 'вивести 
Е 

ЕпсІ 5иЬ 'кінець підпрограми таіп _ 

А( )= 7 9 2 

В()= 3,56 5,78 

С( )= 5 10 

20 15 

0 () = 

Тгие Тгиа 

РаІ50 РаІ50 

Е ()= 2 15 6 0 


Колекції Соїіесііоп 

Колекція (Соїіесііоп) - це об’єкт, який містить впорядкований 
набір елементів, що можуть мати довільний тип. Звернутись до 
елемента колекції можна за його унікальним індексом (ключем). 
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Колекція містить методи, які дозволяють додавати нові елементи, 
вставляти їх в задане положення, видаляти і підраховувати їх 
кількість. Зазвичай використовувати колекції зручніше ніж масиви. 
В наступному прикладі використовуйте 5е"Ь с = N01:Иіп§ для 
видалення колекції, або описуйте колекцію всередині процедури 
таіп. 


Ріт с Аб ІМеи Соіієсіііоп 'колекція 
Ріт х Аз \/агіап1: 

РиЬІіс БиЬ таіп() 

с.Асісі "січень" 'додати елемент з ключем 1 

с.Асісі "лютий" 'додати елемент з ключем 2 

с.Асісі "грудень", Ье-Роге:=1 'вставити елемент перед 1 

с.Асісі "березень" , "5" 'додати елемент з ключем 5 

с.Кетоуе 2 'видалити елемент з ключем 2 ("січень") 

РеЬи§.Ргіпі: с.СоипІ: 'кількість елементів 

РеЬи§.Ргіпі с(1), с(2), с("Б") 'значення елементів за 

ключами 

'ОеЬид.Ргіпі с.Ііет("5") 'або так 

Рог ЕасН х Іп с 'для всіх елементів 'х' в колекції ’с' 
РеЬи§. Ргіпі: x^ 'вивести елемент 
Мехі: х 

Беї: с = І\Іо1:Іііп8 
Епсі БиЬ 

З 

грудень лютий березень 

грудень лютий березень 

Словник 8сгірііп§.Вісііопагу 

Словник (5сгір1:іп§. Оісіїіопапу) - це об’єкт, який містить 
дані у вигляді множини пар ключ-значення. Значення можуть мати 
довільний тип. Звернутись до значення словника можна за його 
унікальним ключем. Словник містить властивості і методи, які 
дозволяють додавати і видаляти дані, змінювати ключі, перевіряти 
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наявність ключів та інші. Для запуску прикладу під’єднайте 
бібліотеку Місгозой 8сгірііп§ Кипііте. 


Ріт сі Аб ІМем 5сгірііп§.Рісііопагу 'словник 
Ріт к Аб Уагіапі: 

РиЬІіс 5иЬ таіп() 

'додати в словник елемент з ключем 1 і значенням "Січень" 
сі.Асісі 1 , "Січень" 
сі.Асісі 2 , "Лютий" 
сі.Асісі З , "Березень" 

Рог ЕасН к Іп сі 'для кожного ключа '/?' в словнику 'д' 

РеЬи§. Ргіпі: к, сі(к) 'вивести ключ і значення 
' ОеЬид.Ргіпі к, д.Ііет(к) 'або так 
ІМехі: к 

сі.Кєшоує 2 'видалити елемент з ключем 2 

РеЬи§.Ргіпі: сі.Ехібїб(2) 'чи існує елемент із ключем 2 

сІ.Кеу(З) = 2 'змінити ключ 

РеЬи§. Ргіпі сі.Соипі: 'вивести кількість елементів 
РеЬи§.Ргіпі с1.кеу5(0), сі. іієгпб(0) 'перші елементи масивів 
ключів і значень 

5еі сі = І\ІоіІііп£ 

ЕпсІ 5иЬ _ 

1 Січень 

2 Лютий 

3 Березень 
Раїзе 

2 

1 Січень 

Функції перетворення ТИПІВ 

В прикладі показано використання функцій для перетворення 
даних з одного типу в інший. Зокрема можна перетворити рядок в 
число \/а1(" 3.51" ) або число в рядок Біг(3.51). 


Ріш х Аб РоиЬІе 
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Оіт 5 Аб 51:гіп§ 

Оіт Ь Аз Вооіеап 
Оіт сі Аз Оаіе 
Оіт і Аз Іпіе^ег 

РиЬІіс 5иЬ таіп() 

х = \/а1("3.51") 'конвертує рядок в число, х=3.51 
з = 51:г(х) 'конвертує число в рядок, з="3.51" 
з = Рогта1:(Оа-1:е, "сісісі, сі тт уууу") 'форматує дані, в="Вт, 
30 09 2008" 

з = РогтаіСОаіе, "сісісісі, сі тт уууу' ) ' в="6торник, 30 09 
2008" 

з = Рогта1:(15790.335, "##,##0.00 грн ) 'з="15 790,34 грн" 
(тип \ /агіапі) 

з = Рогта#$(15790.335, "##,##0.00 грн') 'в="15 790,34 грн 
(тип Бігіпд) 

Ь = СВоо1( -Раїзе') 'конвертує в булеве, Ь=/оі.зе 

сі = СОаіе( 30.09.2008") 'конвертує в дату, д=#30.09.2008# 

х = СОЬ1( ’З ,51") 'конвертує в дійсне, х=3.51 

і = СІп-Ь ( '15 і ) 'конвертує в ціле, і=15 

з = С5іг(3.51) 'конвертує в рядок, в="3.51" 

у = С\/аг(15 & "00") 'конвертує у \/агіапі, у=1500 

Епсі 5иЬ 


Математичні функції 

Приклад показує роботу з різними математичними функціями 
(АЬз, Соз, 5^п тощо). Зверніть увагу, що тригонометричні функції 
потребують значення кута в радіанах. 


Оіт х, у Аз ОоиЬІе 
Оіт і Аз Іпіе^ег 

РиЬІіс 5иЬ таіп() 
х = 0.5 

у = АЬз(х) 'модуль 
у = А1:п(х) 'арктангенс 
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у = Со5(х) 'косинус кута в радіанах 
у = Ехр(х) 'експонента (приблизно 2.71 Л х) 
у = І_о§(х) 'натуральний логарифм 
у = КпсІ(х) 'випадкове число від 0 до 1 

у = 5§п(х) 'повертає 0, 1 ^ -1 в залежності від знаку 'х' 
у = 5іп(х) 'синус кута в радіанах 
у = 5яг(х) 'корінь квадратний 
у = Тап(х) 'тангенс кута в радіанах 

і = Ріх(х) 'повертає найближче найменше ціле для додатного 
числа і найближче найбільше ціле для від'ємного 
і = Іпі:(х) 'повертає найближче найменше ціле 
'похідні математичні функції 


= 1 / Тап(х) 'котангенс 
= А1п(х / 5яг(-х * х + 1)) 'арксинус 

5яг(-х *х + 1)) + 2* А1:п(1) 'арккосинус 
2 * А1п(1) 'арккотангенс 
1.08(5) 'логарифм з основою 5 
5 + 1) * КпсІ + 5) 'випадкове число від 5 до 9 


А1:п(-х 
Аіп(х) 
І- 08 (х) 
Іпі: ( (9 


Епсі БиЬ 


Функції обробки рядків 

В прикладі показані різні функції для обробки рядків (тип 
51:гіп§). Ці функції дозволяють об’єднувати рядки, обчислювати їх 
довжину, шукати текст тощо. 


Ріш $1, 52 Аб Бігіпе 
РиЬІіс 5иЬ таіп() 

с = А5С("У") 'повертає А5СІІ код символу 
5І = СМг(89) 'повертає символ за А5СІІ кодом 
'СЬг(ІЗ) - символ переходу на новий рядок 
РеЬіщ.Ргіпі; "беїіо' & СМг(ІЗ) & "и/огісі" 

51 = "Неііо іліогісі ! ! ! " 

52 = Місі (5І_, 1 , 5) 'повертає підрядок ^ починаючи з 1-го 
символу, довжиною 5 символів, з2="Неііо" 

і = І_еп(5І) 'довжина рядка, і=14 _ 
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51 = & 52 & 'додати до рядка символи пробілу 

52 = Тгіт(5) 'видаляє символи пробілу спочатку і вкінці 
рядка 

і = Іп51:г(5І, 52) 'повертає позицію першого входження 52 у 
зі, і=2 

і = 51:гСопір(5І, 52) 'порівнює рядки, і=1 (зі > з2) 

ЕпсІ 5иЬ _ 

Иеііо 

могісі 

Функції обробки дати і часу 

Функції обробки дати і часу дозволяють визначати дату і час, 
визначати компоненти дати, розраховувати різницю дат, додавати 
до дати інтервали. Ці функції працюють зі змінними типу Оаііе. 


Ріт СІ, Т А5 Раіе 
Ріт і Аб ІгтЬе^ег 
Ріт 1 А5 і_оп§ 

Ріт ї Аз Біпціе 

РиЬІіс 5иЬ таіп() 

сі = Раїїе 'поточна дата, д=#9/30/2008# 

Т = Тіте 'поточний час, д=#20:31:07# 

д = і\іои 'поточні дата і час, д=#9/30/2008 20:31:07# 

д = #9/30/2008# 'присвоїти дату 

Т = #8:31:07 РМ# 'присвоїти час 

д = #9/30/2008 8:31:07 РМ# 'присвоїти дату і час 

сі = Ра1:е5егіа1(2008, 9 , 30) 'дата, задана цілими числами 

Т = Тіте5егіа1(20, 31, 7) 'час, заданий цілими числами 

і = Рау (сі) 'день 

і = Моп1:М(сІ) 'місяць 

і = Уеаг(сІ) 'рік 

і = Ноиг(Т) 'година 

і = МіпиІіе(Т) 'хвилина 

і = 5есопсІ(Т) 'секунда 

і = ІлІеексіау(Т) 'день тижня 

-р = Тітег 'число секунд після опівночі _ 
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1 = ОаІіеОі-р-р( 'Н ", #8/12/1978#, І\Іом) 'кількість інтервалів 
між датами (годин) 

і = 0а1:еРаг1:( 'т", Оаііе) 'компонент дати (місяць) 

сі = Оа1:еАс1сІ("т", 10, Оаіе) 'додає до дати інтервал (10 

місяців) 

Т = Тіте\/а1ие( 3:31:30 РМ") 'перетворює рядок в формат 
часу 

ЕпсІ 5иЬ 


Функції для створення діалогових вікон 

В прикладі показані функції для створення діалогових вікон 
(рис. 1.4). Функція ІприІїВох створює діалогове вікно для введення 
даних. Функція №§Вох створює діалогове вікно з повідомленням і 
кнопками, а також повертає код натиснутої кнопки. 


01т х Аз ОоиЬІе 
Оіт і Аз Вуїв 

РиЬІіс 5иЬ таіп() 

х = ІприїВох('введіть х", "х", 0) 'виводить діалогове 
вікно з полем введення і повертає введене значення 
і = Мз§Вох("х=‘ & х, уЬУезІМоСапсеІ, "Аргумент") 'виводить 
діалогове вікно з повідомленням і кнопками Уез/Ио/Сапсеі 
Мз§Вох (і) 'код натиснутої кнопки 
ЕпсІ 5иЬ 




ок 


СапсеІ 
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Аргумент _х| 

МІСГ05оЛ ЕхсеІ _х| 

х=1 

6 

[ Яа і| Нет | Отмена | 

[ ок 




Рисунок 1.4 - Діалогові вікна 


Використання функцій з бібліотек БІХ 

В програмі мовою УВА можуть бути використані довільні 
функції з бібліотек Б1Х, в тому числі функції \У іп32 АРІ [20, 21, 28, 
29, 42]. Наприклад можна відтворити звуковий файл за допомогою 
функції РІауБоипсІ з системної бібліотеки шіптт.гііі. 


'функція МезяадеВеер з системної бібліотеки изег32. СІП 
Ресіаге 5иЬ Мезза§еВеер І_іЬ "и5ег32.сН1" (ВуУаІ Т А5 і-опе) 
'функція РіауБоипсІ з системної бібліотеки міптт.сНІ 
Ресіаге РипсЬіоп РІауЗоипсІ ИЬ "міптт.сііі" Аііаз 
"РІауЗоипсІА" _ 

(ВуУаІ п Аз 51:гіп§, ВуУаІ т Аг І.оп§, ВуУаІ -р Аб і.оп§) Аз 
І-ОП§ 

РиЬІіс 5иЬ таіп() 

Мезза§еВеер 32 'виклик функції з параметром 
'виклик функції з параметром 

Саіі Р1ау5оипсІ("с:\ИІМ00М5\МесІіа\'ЬасІа.мау", 0 &, 5Ш_А5УІ\ІС 
Ог 5т_РІІ_ЕМАМЕ) 

Епсі 5иЬ 


Файли послідовного доступу 

Файл - це інформаційний об’єкт, який містить послідовність 
байтів і розміщений у файловій системі на носію інформації. Усі 
файли є бінарними, але якщо для файлу застосовується кодування 
символів (А8СІІ, ІЛТ-8, СР1251 або інше), то його називають 
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текстовим. Файли послідовного доступу, наприклад текстові, 
зберігають дані в неструктурованому для звернення вигляді. Для 
пошуку в таких файлах потрібно послідовно читати усі дані. Для 
роботи з файлом його відкривають оператором Ореп і вказуюють: 
шлях до файлу, режим (АррепсІ, Віпагу, Іприї, Оиїриї, Капсіот) і 
номер файлу. Для запису даних у файл послідовного доступу 
використовують оператори Ргіпї і Ілігіїе, а для читання - Іприї: та 
їіпе Іприї. Після завершення роботи з файлом його потрібно 
закрити оператором Сіозе. Приклад створює текстовий файл 
послідовного доступу, записує в нього дані, читає дані та додає нові 
дані. 


Ріш х, у Аз РоиЬІе 
Ріт 5 Аб 5їгіп§ 

'підпрограма таіп 

РиЬІіс 5иЬ таіп() 
х = 5.6 

'відкрити файл с: \/гі.е1. даі під номером 1 для виведення 
Ореп "с:\їі1е1.сіаї" Рог Оиїриї Аб #1 

Ргіпї #1 , "значення х="; х 'записати форматовані дані у 
файл 1 

Ілігіїе #1 , х л 2 'записати неформатовані дані у файл 1 
Сіозе #1 'закрити файл 1 

'відкрити файл сЛ^іІеІ.даі для введення під номером 1 
Ореп "с:\їі1е1.сіаї" Рог Іприї Аб #1 ' 

Ипе Іприї #1, б 'прочитати рядок з файлу 
Іприї #1, у 'прочитати дане з файлу 
РеЬи§.Ргіпї б; у 'вивести з,у у вікно Іттедіаіе 
Сіозе #1 'закрити файл 1 

'відкрити файл с: \/ї/.е1 .даі під номером 1 для додання 
Ореп "с:\їі1е1.сіаї" Рог АррепсІ Аб #1 
Ілігіїе #1 , х л 3 'записати неформатовані дані у файл 1 
Сіозе #1 'закрити файл 1 _ 
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Епсі 5иЬ 


Бінарні файли 

Приклад відкриває файл як бінарний і читає його побайтово за 
допомогою функції Іприї:. Кінець файлу визначається за 
допомогою функції ЕОР (Епсі Ої Ні 1с). 


РиЬІіс 5иЬ таіп() 

'відкрити файл с: \/г/.е1 .даї під номером 1 як бінарний 
Ореп "с:\-Рі1е1.сіаі:" Рог Віпагу А5 #1 
Ро ІлІІііІе N01: ЕОР (1) 'поки не кінець файлу 1 

х = Іпри1:(1, #1) 'присвоїти 'х' наступний байт з файлу 

1 

РеЬи§.Ргіпі: х; 'вивести 'х' 

Ьоор 'повторити 

Сіозе #1 'закрити файл 1 

Епсі 5иЬ 


Файли довільного доступу 

Файли довільного доступу зберігають дані в структурованому 
для звернення вигляді. В таких файлах можливий безпосередній 
доступ до даних за номером запису. Записуються дані у такі файли 
оператором Риіі, а читаються - оператором Сеї. В прикладі у файл 
довільного доступу записуються дані про студентів - значення 
змінних типу 51: и сіє пі:. Після цього дані з файлу читаються і 
виводиться інформація про студентів з заданим прізвищем. 


Туре зііисіепі: 'тип користувача 
пате Аз 5±гіп§ * 20 
Ваіі Аз РоиЬІе 
Епсі Туре 

Оіт оЬд Аз З-Сисіепі: 'змінна типу зіидепі 
Ріт з!_, з2 Аз Бїгіпз 
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'процедура таіп 
РиЬІіс 5иЬ таіп() 

'відкрити файл с: \ф : ііе2.даї під номером 1 для довільного 
доступу ; довжина запису файлу = іеп(оЬ^) 

Ореп "с:\Рі1е2.бар" Рог Капсіот А5 #1 І_еп = І.еп(оЬ;і) 

Оо 'початок циклу 

51 = ІприіВох( "Введіть ім'я", "Ім'я") 'ввести ім'я 

ГР 5І = ' ТНеп Ехії Оо 'якщо нічого не введено, то 

вийти з циклу 

52 = ІприіВох( "Введіть бал', "Бал') 'ввести бал 

ІР 52 = " ТНеп Ехії: Оо 'якщо нічого не введено , то 

вийти з циклу 

оЬд.пате = 5І 'присвоїти оЬ^^ате значення 
оЬ].Ва11 = СРЬ1(52) 'присвоїти оЬ^.Ваіі значення 
Риі #1, , оЬ} 'записати об•] у поточну позицію файлу 1 
РеЬи§.Ргіпі оЬ].пате; оЬз.Ваїї 'вивести 
Боор 'повторити 
СІ05Є #1 'закрити файл 1 

'відкрити файл с: \/ііе2. даї під номером 1 для довільного 
доступу 

Ореп "с:\Рі1е2.бар" Рог Капсіот Аб #1 Беп = І.еп(оЬ;і) 

Оо ІліНіІе N01: ЕОР (1) 'поки не кінець файлу 1 

ЄєР #1, , оЬ] 'прочитати дані з поточної позиції у обу 
'якщо знайдено ім'я "Іиапои" і не кінець файлу , то 
ІР Тгіт(оЬ^. пате) = 'Іуапоу" АпсІ N01: Е0Р(1) ТИеп _ 
'вивести позицію запису і дані 
ОеЬи§.РгіпР 5еек(1) - 1 ; оЬз.пате; оЬд.ВаІІ 
Боор 'повторити 

ЄєР #1, 1, оЬз‘ 'прочитати дані з позиції 1 
ОеЬи§.РгіпР 1 ; оЬ;].пате; оЬ^'.ВаІІ 'вивести дані 
СІ05Є #1 'закрити файл 

ЕпсІ 5иЬ 


Об'єктно-орієнтоване програмування 
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Об’єктно-орієнтоване програмування (ООП) основане на 
використанні об’єктів - абстрактних моделей реальних предметів чи 
понять [5, 19, 20, 23, 28, 29, 32]. ООП є близьким до природного 
способу мислення людини, характерне для багатьох високорівневих 
мов програмування та дозволяє суттєво спростити розробку 
складних програмних систем. 

Об’єкти створюються за допомогою спеціальних типів даних - 
класів. Кожен клас описує множину об’єктів певного типу. Об’єкти 
можуть володіти властивостями, методами і подіями. Властивість 
(ще використовують терміни поле, атрибут-дане) - це описана в 
класі змінна або константа, яка визначає певну характеристику 
об’єкта (висота, ширина, колір тощо) і має певне значення. 
Наприклад код оЬ^'есТ. со1ог="гес1" присвоює значення "песі" 
властивості соїог об’єкта оЬ^есІ:. Метод - це описана в класі 
процедура, яка застосовує певний алгоритм до об’єкта. Наприклад 
код оЬ]ЄСІ:. сіпай/ викликає метод сігаи/ об’єкта оЬ^есІ:. Подія - це 
дія, яка розпізнається програмою і обробляється процедурою 
обробки події. Подію може викликати сама програма, система або 
користувач. 

В прикладі створюється об’єкт оЬ] класу Сіаззі, його 
властивостям 2 , х присвоюються значення і викликається метод у. 
Для запуску цього прикладу необхідно додатково створити модуль 
класу Сіаззі (дивіться рис. 1.5 та приклад нижче). 


В ^ УВАРгоїесІ (Книгаї) 

Й £3 Місгозоїї ЕхсеІ Окцесіз 


Ріш оЬз Аз Сіаззі 


Лист 1 (Лист 1) 
Лист2 (Лист2) 
ШҐ) ЛистЗ (ЛистЗ) 
ЗтаКнига 


РиЬІіс 5иЬ таіп() 

5ег оЬі = N 0 ™ Сіаззі 
оЬз.2=1 
оЬз.х = 2 
РеЬид.Ргіпс оЬі. 

Епсі 5иЬ 


Й £3 Мосіиіез 


«і? ідддЗІ 


Епсі 5иЬ 



В £3 СІазз МогіиІЄ5 
® Сіаззі 


Рисунок 1.5 - Модулі проекту 


Ріш оЬ^ Аз Сіаззі 'оголосити об'єкт класу Сіаззі 
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РиЬІіс 5иЬ таіп() 

5еі: оЬ^‘ = ІМем Сіаззі 'створити об'єкт об] 

оЬ]. 2 = 1 'присвоїти властивості 'і' значення 

оЬ]'.х = 2 'присвоїти властивості 'х' значення 

РеЬи§. Ргіпі: оЬ;].у(5) 'викликати метод 'у' з параметром 5 

ЕпсІ 5иЬ _ 

~Ї2 

Модуль класу С1а88І 

Клас - похідний тип даних, який описує множину об’єктів, в 
яких дані різного типу (властивості) об’єднані з алгоритмами їх 
опрацювання (методами). УВА-класи можуть також містити події. 
Наступний модуль описує клас Сіаззі, який містить такі члени: 
змінні аг§ і 2 , подію по1:І\ІитЬег, властивість х, метод-функцію у і 
процедуру ініціалізації С1азз_Іпі1:іа1І2Є. Властивість х 
відрізняється від інших змінних класу тим, що процедура Ргорегіу 
Се! х автоматично викликається під час отримання значення 
властивості х, а процедура Ргорегіу І_е1: х автоматично 
викликається під час присвоєння значення властивості х. Про 
використання події поіІМитЬег дивіться приклад "Обробка подій 
користувача" нижче. 


Ріт аг§ Д5 ї/агіапі 'поле класу (закрите) 

РиЬІіс 2 Аз Іпіе^ег 'поле класу (загальнодоступне) 
РиЬІіс Еуєпі поїіМитЬег(х) ' подія (загальнодоступна) 

Ргіуаіе 5иЬ С1аз5_Іпі1:іа1І2е() 'процедура ініціалізації 
аге = 0 
ЕпсІ 5иЬ 

'процедура повернення властивістю ’х' значення дійсного 
типу 

РиЬІіс Ргорегіу Єє! х() Аб ї/агіапі 

х = аг§ 'присвоїти властивості значення 

ЕпсІ РгорегЬу _ 
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'процедура присвоєння властивості 'х' значення дійсного 
типу 

РиЬІіс Ргорегіу І_е1: х(Ву\/а1 VNемVа1ие Аб ї/агіапі) 

І-р N01: І^итегіс (уМем\/а1ие) ТЬеп 'якщо не числове дане^ то 
КаІБеЕуепІ: поІіМитЬег(уМеїлЛ/аІие) ' викликати подію 
Ехіі Ргорегіу ' вийти 
ЕпсІ 1-Е 

аг§ = VNе^л/Vа1ие 'присвоїти агд нове значення 

ЕпсІ Ргорегіу 

'метод класу (функція) 'у' з параметром 'з' 

РиЬІіс Рипсііоп у(5 Аб \/агіап1:) 
у = 2 * аг§ л 5 
ЕпсІ Рипсііоп 


РОЗДІЛ 2. ЕЛЕМЕНТИ КЕРУВ АННЯ ДЛЯ ПРОГРАМ З СІЛ 
Клас ШегГогт - форма користувача 

Елемент керування АсГіусХ (ОЕЕ) - це внутрішньопроцесний 
сервер СОМ у вигляді бінарного програмного модуля (БСЬ), який 
являє собою універсальний програмний компонент, що може 
інтегруватися в програми (клієнти СОМ) для розширення їх 
можливостей. Елемент АсїіусХ володіє властивостями, методами і 
подіями. Бібліотека Місгозой Рогтз 2.0 ОЬіссї ЕіЬгагу містить 
АсїіуєХ -компоненти (елементи керування) для створення 
графічного інтерфейсу користувачу (СІЛ) програми [23, 28-30, 32, 
41]. Щоб створити програму з СІЛ потрібно додати новий модуль 
шляхом вибору меню 1п8Єгі/ІІ8ЄгЕогт. З’явиться новий модуль 
ІІзегРогтІ і заготовка вікна (форми) ІІзегРогтІ, в яку можна 
перетягнути потрібні елементи керування з вікна ТооІЬох (рис. 2.1). 
В вікно ТооІЬох також можна додати елементи керування з ін ш их 
бібліотек шляхом вибору меню АсИІПопаІ СоШтоІ8... 


44 



^ МісгоаоЙ:УівиаІ Ва$»с - УВАехапі р1е5.хк - [и^егРогтІ (У^егРогт)] - |□ | х| 

: Рііе Е(Й \/іеіл' Іпзегі Рогтаї РеЬид Кип ТооІ5 АскНпз уу/іпсіою Неір - б 1 X 



Рисунок 2.1 - Проектування ОІЛ в редакторі Уізиаі Вазіс 


Класи бібліотеки М8 Роппз можна переглянути в Оіуесі: Вгошзег 
(рис. 2.2). Класи ® містять властивості (РгорсПу ЕІ?), методи 
(МеіЬосІ і події (Ьл'спі Р ). 

|м5Рогт® ” 3] 11 ’ І Ч І 


ТІ й 


СІа$ЗЄ$ 

МетЬегз о( ІІзегРогт' 

Й КеІитЕЯесІ _^| 

Й? СапКейо 

Й Кеіигпіпіедег 

Й? СапСіпОо 

Й КеІигпЗіпдІе 

Й? Сарііоп 

Й КеІитЗІгіпд 

ІШСІіск 

Й ЗсгоІІВаг 

І6* С0ПІГ0ІЗ 

Й ЗріпВийоп 

А Сору 

Й ТаЬ 

♦ Сиі 

Й ТаЬз 

Й? Сусіе 

Й ТаБЗІгір 

9 ОЬІСМск 

Й ТехІВох і 

Й? йгашВиІТег 

Й ТоддІеВиПоп 

Й? ЕпаЬІеО 

й ІІзегРогт |»| 

9 Еггог 


ЕуепІСІіскО 

МетЬег оТ М5Рогт8 . Ц8егРогт 
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Рисунок 2.2 - Перегляд бібліотеки М8 Роггш 2.0 в вікні ОЬ|ссї 

ВгО\У8ЄГ 

Значення властивостей вибраного об’єкта можна змінювати на 
етапі проектування у вікні Ргорегїіез (рис. 2.3). За допомогою подій 
компоненти можуть реагувати на дії користувача. Коли 
відбувається подія компонента, то автоматично виконується 
процедура обробки цієї події. Щоб пов’язати задану подію з 
процедурою обробки події, потрібно в списках, які знаходяться 
відразу над кодом програми в редакторі Уізиаі Вазіс, вибрати 
компонент і відповідну його подію (рис. 2.3). Автоматично в код 
буде додана пуста процедура, що оброблятиме цю подію. Тепер в 
цю процедуру можна додати який-небудь код. 


^ Гїюго^оЬ \Л$иаІ Ва 5к - УВА_ехаілрІе5-хІ5 - [ІКегТоппІ (Ссхіс)] ■ ІПІ х[ 

Рііе Иіі Уіеіл 1 Іпзегі Рогтаі РеЬид Кип Тооіз Асісі-Іпз Неір - б 1 X 


Ргоїесї - УВАРгоіес!: _Х| 

ттП ~ 


Ргорег±іе5 - У^егРогтІ 


| У^егРогтІ ІІзегРогт 

АІрЬаЬеЬс | 

СаїедогїгесІ | 

1 (№те) 

ИйзегРогт 1 

ВаскСоїог 

□ &Н800000С 

ВогсІегСоїог 

■ &Н800000С— 

ВогсіегБїуІе 

0 - гїпВогсіегБІ 

Сарйоп 

УзегРогт 1 


Й 1 'а і? І 


І® ЛистЗ (ЛистЗ) 
а ЗтаКнига —І 

Й ^3 Рогтз 

И [І.ТІЛВІ 

ІІБегРогт 10 

~ 1 


іГ 1 
25І 




'Процедура обробки 
Ргл^аге 5иЬ ИзегЕоі 


СІіск 

ОЬІСІюк 

ОеасЩаїе 

Еггог 


'приклади методів -іпіііаііге 


ИзегЕогтІ .Нісіе ’схс 
МздВох ("ИзегЕогтІ 
ИзегЕогтІ.МоVе 0, С 
ИзегЕогтІ.ЗЬою 'по* 
Епсі ЗиЬ 


СІіск 


КеуРоууп 

<еуІІр 

1_ауои1 

МоизеОожп 

МоизеМоуе 

‘ЛоивеІІр 


№<ІІ 

Іттегііаіе 


21 ) 


Рисунок 2.3 - Властивості і події в редакторі Уізиаі Вазіс 


Клас ІІзегРогт описує поняття вікна програми (форми 
користувача). В наступному прикладі показано використання 
основних властивостей, методів і подій цього класу. Процедура 
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ІІ5ЄгРогт_Іпі1:іа1І2Є обробляє подію Іпііііаіііе (ініціалізація 
форми), процедура ІІ5ЄгРогт_С1іск - подію Сііск (натиск лівої 
кнопки миші на формі), процедура ІІ5ЄгРогт_Тегтіпа1:е - подію 
Тегтіпаїїе (знищення форми). Результат роботи програми 
показаний на рис. 2.4. 


'Процедура обробки події Іпіїіаіііе (ініціалізація форми) 
Ргіуаїе 5иЬ ІІзегРогт_Іпі1:іа1І2е() 

'приклади властивостей іІзегРогт: 

ІІзегРогтІ. СарТіоп = "Перша форма" 'надпис 

ІІзегРогтІ.ВаскСоїог = уЬСгееп 'колір фону 

ІІзегРогтІ.ВогсІегЗІїуІе = ТтВогсІег5'І:у1е5іп§1е 'стиль границі 

ІІзегРогтІ. Рісіюге = І_оасІРіс1:иге( "С: \ІлІІІ\Ю0ІлІ5\Паркет. Ьшр ) 

'фонова картинка 

ІІзегРогтІ. РісІїигеЗігеМосІе = ТтРісТигеЗігеМосІеЗ'їігеІїсІї 
'розмір картинки 

ІІзегРогтІ. БІіагШрРозіТіоп = 0 'початкова позиція 
'координати верхнього лівого кута: 

ІІзегРогтІ. Ье-Рі: = 50 
ІІзегРогтІ.Тор = 50 
ІІзегРогтІ.Неі§1п1: = 100 'висота 
ІІзегРогтІ.ІлІісНіН = 200 'ширина 

ІІзегРогтІ.МоизеРоіітІїег = ТтМоизеРоіпІіегСгозз 'вид 
вказівника миші 

ІІзегРогтІ. ЕпаЬІесІ = Тгие 'чи допустиме керування вручну 
' ІІзегРогтІ. БііошМодаі = Раізе 'зробити не модальною. 
Властивість змінюється тільки на етапі проектування! 

ЕпсІ 5иЬ 

'Процедура обробки події Сііск (натиск лівої кнопки миші) 
Ргіуаіе 5иЬ ІІзегРогт_С1іск() 

'приклади методів бзегРогт: 

ІІзегРогтІ.Нісіе 'сховати 

Мз§Вох ("ІІзегРогтІ. 5Ном' ) 'вивести вікно з повідомленням 
ІІзегРогтІ.Моуе 0, 0, 300 ^ 400 'перемістити і змінити 
розмір 

ІІзегРогтІ. 5Иом 'показати 
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Епсі 5иЬ 

'Процедура обробки події Тегтіпаїе (знищення) 

Ргіуаіе 5иЬ ІІ5егРогт_Тегтіпаї:е() 

Мз§Вох ("Відбулась подія Тегтіпаїїе") 'вивести вікно з 
повідомленням 

Епсі 5иЬ 


Перша форма ХІ 



Рисунок 2.4 - Результат роботи програми 

Модуль Мосіиіеі 

Можливо також створити додаткові модулі, з яких можна 
звертатись до модуля ІІзегРогтІ. Нижче показано модуль Мосіиіеі 
з процедурою таіп, в якій викликається метод 5їю\л/ об’єкта 
ІІзегРогтІ. Якщо виконати цю процедуру, то вікно ІІзегРогтІ 
з’явиться на екрані. 


РиЬІіс 5иЬ таіп() 
ІІзегРогтІ.5 Иои/ 

Епсі 5иЬ 


Обробка подій користувача 

Об’єкт оголошений з ключовим словом ілііНіЕуєітРз може 
викликати події, які описані в його класі. В наступному прикладі 
таким об’єктом є оЬ] класу Сіаззі (дивіться модуль класу 
Сіаззі). В класі Сіаззі подія по1:І\ІитЬег викликається 
оператором КаізеЕуегтІ: тоді, коли змінна уМеиЛ/аІие не є 
числовим даним. Для створення процедури-обробника 
°Ь]_по'ЬІ\ІитЬег виберіть об’єкт оЬ] і подію по1:І\ІитЬег у списках 
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над кодом програми. Подія буде виникати після введення в поле 
ТехбВохІ нечислового значення і оброблятись процедурою 
оЬ^поПМитЬег (рис. 2.5). 


'Оголосити об'єкт класу Сіаззі 

Ріт ілігЬНЕуєітЬб оЬ^ Аб СІаББІ ' об'єкт може викликати події 

Ргіуабе 5иЬ СоттапсІВи1:-|:оп1_С1іск() 

5е1: оЬ^‘ = СІаББІ 'створити об'єкт обі 
оЬ].2 = 1 

оЬ].х = ТехСВохІ.ТехІ: 'тут може виникнути подія поїИитЬег 
ТехбВохІ.ТехІ: = оЬ;].у(5) 'вивести результат в ТехїВохІ 

Епсі 5иЬ 

'Обробник події користувача поїМитЬег 
Ргіуаїе 5иЬ оЬ;і_по1:І\ІитЬег(х Аб Уагіапі;) 

Мб§Вох "ІлІагпіп§! х іб поС питЬег: & х 

Епсі 5иЬ 

ивегРогтІ _х| 

П*"° I 

МкховоЛ ЕхсеІ 


\А/атіпд! х із поі питЬег: ЬеІІо 


ОК 

Рисунок 2.5 - Обробка події поЙМитЬег 

Загальні властивості компонентів М8 Гогіт 

В наступному прикладі ІІ5ЄГРогт2 показано використання 
методів і властивостей, які є у більшості елементів керування М8 
Ронпб. Доступ до усіх елементів керування форми можна отримати 
за допомогою властивості Сопііпоіб (рис. 2.6). 


Ргіуабе 5иЬ ІІ5ЄгРогт_Іпі1:іа1І2е() 
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'для кожного елемента керування на ІІзегРогт2 
Рог ЕасН оЬ]' Іп ІІ5ЄгРогт2. Сопіігоіб 
об) . АиІіоЗіге = Тгие ' авторозмір 
оЬ;].\/І5ІЬ1е = Тгие 'видимість 
оЬ;і. ЕпаЬІесІ = Тгие 'дозвіл керування 
'координати верхнього лівого кута 
оЬ) . Ье-РІ: = 10 
оЬд.Тор = оЬ^'.Тор + 20 
оЬ^. Неі§М1: = 20 'висота 
оЬ^. 1л/ісИ;М = 100 'ширина 

оЬд . СогібгоІТірТехІ: = "Неір" 'текст підказки 

оЬ;і. ВаскСоїог = уЬУєііом 'колір фону 

об).РогеСоїог = КСВ(0, 0^ 0) 'колір переднього плану 

оЬд. Васк51:у1е = -РтВаскЗІїуІеТгапБрагеїтІ: 'тип фону 

Мехі: 

'метод ЗеіРосиз 

СоттапсІВиїї'ІіопІ. ЗебРосиз 'установити фокус на кнопці 
РеЬи§.Ргіпі: ІІ5ЄгРогт2.Ас1:ІУеСоітІ:го1.\/а1ие 'значення 
активного елемента^ який містить фокус 

ЕпсІ 5иЬ 


ІІ5егРогт2 

х| 

І_аЬе!1 


| 1234567890 


|7 СЬескВохІ 


(* ОрЬогВийопІ 


СсхптапсІ Вийоп 1 



Рисунок 2.6 - Результат роботи програми 

Клас ЬаЬеІ - надпис 

В прикладі ІІзегРогтЗ показано використання елемента 
керування 1_аЬе1 (надпис), який використовується для 
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відображення тексту на вікні (рис. 2.7). Основною властивістю є 
СарТіоп, яка містить рядок з текстом. 


'Процедура обробки події Сііск (натиск лівої кнопки миші) 
Ргіуаііе 5иЬ І_аЬе11_С1іск() 

ІаЬеІІ.АиРоЗіге = Раїяе ' авторозмір 
І.аЬе11.Неі§ІтІ: = 40 'висота 
ІаЬеІІ .ІлІісНіМ = 70 'ширина 

ІаЬеІІ.РопР.пате = "Тіте5 Котап" 'ім'я шрифту 

І-аЬе11. Ропі. 5іге = 14 'розмір шрифту 

І-аЬе11. РопР. Воісі = Тгие 'жирний шрифт 

ІаЬеІІ. РопР.Іііаііс = Тгие 'курсив шрифт 

І-аЬе11. РопР. Ііпсіегііпе = Тгие 'підкреслений шрифт 

І-аЬе11.РогеСоїог = КСВ(255, 0, 0) 'колір переднього плану 

(шрифту) 

І.аЬе11.Тех-|:А1і§п = ТтТех1:А1і§пСеп1:ег 'вирівнювання надпису 
ІаЬеІІ.ЗресіаІЕ-р-РесІ: = -РтЗресіаІЕ-р-РесІїЗипкеп 'спеціальний 
візуальний ефект 

ІаЬеІІ.СарРіоп = 'Сііскесі" 'надпис 
ІаЬеІІ .ІлІогсІІлІгар = Тгие 'перенос тексту 

ЕпсІ 5иЬ 


и^егРогтЗ 


X] 


ивегРогтЗ 


*] 


Сііскесі 


Рисунок 2.7 - Елемент керування ЬаЬеІ 


Клас ТехїВох - текстове поле 


В прикладі ІІ5ЄГРогт4 показано використання елемента 
керування ТехТВох (текстове поле), який використовується для 
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введення і виведення тексту (рис. 2.8). Основною властивістю є 
Техі:, яка містить рядок з текстом. 


Ріт х Ая РоиЬІе 
Ріт 5 Аб 51ігіп§ 

'Процедура обробки події Іпіїіаііге (ініціалізація форми) 
Ргіуаііе 5иЬ ІІяегРогт_Іпі1ііа1І2е() 

ТехІїВохІ. АиІюЗіге = Раїяе ' авторозмір 
Тех1:Вох1.Тех'1:А1і§п = •РтТех1іА1і§пСеітІіег 'вирівнювання 
тексту 

ТехІїВохІ.ЕпаЬІесІ = Раїяе 'доступність 
ТехІїВохІ. Техії = "Неііо" 'текст 
ТехІїВохІ. Техії = 5.71 'текст 

х = СРЬЦТехІВохІ.ТехІї) 'конвертувати текст в дійсне число 
'або 

х = СРЬ1(Тех1Вох1 .Уаіие) 'значення 
ТехІїВохІ.5е151іагіі = 0 'початкова позиція виділення 
ТехІїВохІ.ЗеНеп^ІМ = ТехІїВохІ.ТехНеп^ІіІі 'довжина 
виділення 

ТехІїВохІ.Сору 'скопіювати в буфер обміну 
Тех1іВох2.МахІеп§-|іІі = 8 'максимальна довжина тексту 
Тех1іВох2. РаяямогсІСНаг = "*" 'символ для введення пароля 
ТехІїВохЗ. МиНіНіпе = Тгие 'багаторядковий режим 
ТехїВохЗ.Неі^НІї = 50 'висота 
ТехІїВохЗ. Роп1і.5І2Є = 12 'розмір шрифту 
ТехІїВохЗ.ЗсгоІІВагя = ТтЗсгоІІВагяВоІіИ 'смуги 
прокручування 

ТехІїВохЗ.ТаЬІпсІех = 2 'порядок зміни фокусу клавішею ТаЬ 
ТехІїВохЗ.ТаЬКеуВеІіауіог = Тгие 'дозволити вводити у текст 
табуляцію клавішею ТаЬ 
'присвоїти текст у двох рядках 

ТехІїВохЗ.Техії = "Перший рядок" & СЬг(ІЗ) & "Другий рядок" 
ТехІїВохЗ. ЗеїіРосия 'установити фокус 

ЕпсІ 5иЬ 

'процедура обробки події МоизеЦр (відпущено кнопку миші) 
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Ргіуаіе 5иЬ ТехіВохЗ_Мои5еІір(Ву\/а1 Виііоп Аб Іпіееег, 

ВуУаІ 5МІ-Р1: Аб Іпіе^ег, ВуУаІ х Аб 5іп§1е^ Ву\/а1 у Аб 
5іп§1е) 

б = ТехіВохЗ.БеІТехІ: 'присвоїти виділений текст 

ЕпсІ 5иЬ 

'процедура обробки події МоизеОомп (натиснуто кнопку миші) 
Ргіуаіе 5иЬ Тех1:Вох4_Мои5е0омп(Ву\/а1 Виііоп Аб Іп±е£ег, 
ВуУаІ БМі-Рі: Аб Іпіе^ег, ВуУаІ х Аб 5іп§1е, Ву\/а1 у Аб 
5іп§1е) 

Тех1:Вох4.Тех-|: = б 'присвоїти текст 

ЕпсІ 5иЬ 

'процедура обробки події СЬапде (зміна значення) 

Ргіуаіе 5иЬ ТехіВох4_Сііап§е() 

ТехіВохІ.ТехІ: = ТехіВох4.Тех1: 'присвоїти текст 

ЕпсІ 5иЬ 

'процедура обробки події КеуРгезя (натиснута клавіша на 
клавіатурі) 

Ргіуаіе 5иЬ Техі:Вох4_КеуРге55(Ву\/а1 КеуАБСІі Аб 
МЗРоггїіб . КеРитІпіе^ег) 

'якщо А5СІІ код клавіші <48 або >57 (не цифра) 

І-р КеуАБСІі < 48 Ог КеуАБСІі > 57 ТІїеп 
КеуАБСІі = 0 'не виводити нічого 

ЕпсІ І-Р 
ЕпсІ 5иЬ 

и5ЄГрОГШ4 _Х] 


Перший 


Перший — 
рядок _ 
Другий ^ 


Рисунок 2.8 - Елемент керування ТехіВох 

Клас СоттапйВиМоп - кнопка 
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В прикладі іібєгРогіїїБ показано використання елемента 
керування СоттапсІВиїїІіоп (кнопка), на який користувач може 
натиснути (рис. 2.9). Основною подією є Сііск, яка викликається 
натиском лівої кнопки миші на елементі керування. 


'Процедура обробки події Сііск (натиск лівої кнопки миші) 
Ргіуаііе 5иЬ СоттапсІВи1і1іоп1_С1іск() 

СоттапсІВи'Іі-ІіопІ. ЕпаЬІесІ = Тгие 'доступність 
СоттапсІВиїї'ІіопІ. ІоскесІ = Раїяе ' заблокованість 
СоттапсІВиїїІіопІ. Сарііоп = "Сііск!" 'надпис 
СоттапсІВиїїІіопІ. АиІюЗіге = Тгие ' авторозмір 
СоттапсІВиїїІіопІ.Сапсеї = Тгие ' асоціація з клавішею Езс 
СоттапсІВиїїІіопІ. ОеТаиІІі = Тгие 'асоціація з клавішею Епїег 
СоттапсІВи1і1іоп1.Ассе1ега1іог= А" ' клавіша-акселератор Аії-А 
'фонова картинка 
СоттапсІВиїїІіопІ. Рісіиге = 

ІоасІРіс1іиге("сі: \ІлІІІ\Ю0ІлІ5\Паркет. Ьтр") 

'позиція картинки 
СоттапсІВиїїІіопІ. РісІїигеРоБІІііоп = 
ТтРіс1іигеРо5І1ііопАЬоуеІеТіі 
Епсі 5иЬ 

'Процедура обробки події ОЬІСІіск (подвійний натиск лівої 
кнопки миші) 

Ргіуаііе 5иЬ СоттапсІВи1і1іоп1_0Ь1С1іск(Ву\/а1 Сапсеї Аб 
МЗРогшб.К еїигпВооІеап) 

СоттапсІВиїїІіопІ. Сарііоп = "ОЬІСІіск!" 'надпис 
ЕпсІ 5иЬ 


ІІ5€гРогт5 


X] 


1)5егРогт5 


X] 


Соттап сі ВиЙоп 1 



54 



















Рисунок 2.9 - Елемент керування СоттапсІВШоп 

Класи СЬескВох і То§§1еВийоп - прапорець і вимикач 

В прикладі ІІБегРогтб показано використання елементів 
керування СМескВох (прапорець) і То^ІеВиТІїоп (вимикач), які 
володіють властивістю Уаіие, що має значення Тгие, коли стан 
елемента керування вибраний, і Раїзе, коли стан не вибраний, (рис. 

2 . 10 ). _ 

Ргіуаїе 5иЬ ІІ5ЄгРогт_Іпі1:іа1І2е() 

СМескВохІ. ЕпаЬІесІ = Тгие 'доступність 
СМескВохІ. ТгірІеЗІа'Ііе = Тгие 'дозволити три стани 
СМескВохІ.Уаіие = Тгие 'значення "вибрано" 

СМескВохІ.Уаіие = РаІ5Є 'значення "не вибрано" 

СМескВохІ.Уаіие = ІМиІІ 'значення "третій стан" 

СМескВохІ.5еїРоси5 'установити фокус 
То^ІеВиТІопІ. Уаіие = РаІ5Є 'значення "не вибрано" 

ЕпсІ 5иЬ 

'Процедура обробки події СТіапде (зміна стану) 

Ргіуа1:е 5иЬ СМескВох1_СМап§е() 

І-р СМескВохІ.Уаіие ТМеп 'якщо значення=Тгие 

СМескВохІ.СарСіоп = 'Тгие" 'змінити надпис на "Тгие" 
ЕІ5ЄІ-Р N01: СМескВохІ.Уаіие ТМеп 'інакше, якщо 
значення=РаІ5Є 

СМескВохІ.Сарііоп = 'РаІ5е" 'змінити надпис на "Таізе" 
ЕІ5е: СМескВохІ.СарТіоп = "N011" 'інакше змінити надпис на 
"ИиИ" 

ЕпсІ І-Р 
ЕпсІ 5иЬ 
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ІІ5егРогт6 


X] 


Р N01 


Тоддіе 
Екійоп 1 


Рисунок 2.10 - Елементи керування СбескВох і То§§1еВи1:'1:оп 

Клас ОрїіопВиїіоп - перемикач 

В прикладі ІІ5ЄГРогт7 показано використання елемента 
керування ОрЕіопВиіі'Ііоп (перемикач), який володіє властивістю 
\/а1ие, що має значення Тгие, коли елемент керування вибраний, і 
Раїзе, коли він не вибраний (рис. 2.11). 


Ргіуаїе БиЬ ІІ5ЄгРогт_Іпі1:іа1І2е() 

ОрїіопВиІіІіопЗ.УаІие = Тгие 'значення 
ОрТіопВиІЕопЗ.Сарііоп = 'Тгие" 'надпис 
ЕпсІ БиЬ 

'Процедура обробки події Сііск (натиск лівої кнопки миші) 
Ргіуаїе БиЬ СоттапсІВиЕІ:оп1_С1іск() 

'надпис рамки змінити на ім'я активного елемента 
РгатеІ.СарІїіоп = РгатеІ.АсРіуеСоггІїгоІ.пате 
Рог ЕасЬ орЕ Іп Ргате1.Согг1:гоІ5 'для кожного елемента 
орр.СарРіоп = орР.УаІие 'змінити надпис на його 
значення 
Мехі; орЕ 
ЕпсІ БиЬ 
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ІІ5егРогт7 


X] 


Ор*їолВийол2 
с Ра $е 

(* Тгие 

^ Рз5Є 


Соттаг^ВиЙоп 1 


Рисунок 2.11 - Елемент керування ОрііопВіШоп 

Клас ЬікіВох - список 

В прикладі ІІ5ЄГРогт8 показано використання елемента 
керування ИзіВох (список), який використовується для вибору 
елемента зі списку (рис. 2.12). Основними властивостями є 
І_із1:ІпсІех (індекс вибраного елемента) і ИзІТехІ: (текст 
вибраного елемента). 


Ргіуаіе 5иЬ ІІ5егРогт_Іпі1:іа1І2е() 

ИзіїВохІ.І-ізіБіуІе = ЕтИзЕ5ЕуІеОрЕіоп 'стиль списку 
ИзііВохі.Тєх'ііАіі^п = •РтТехіАН^пСеїтІїег 'вирівнювання 
тексту 

ІЛзІїВохІ.МаІїсІїЕїтІїгу = ЕтМаЕсВЕпЕгуРіг5ЕІеЕЕег 'пошук по 
першій букві 

'перший спосіб заповнення списку: 

ИзііВохі. АсІсІІЕет "Перший" 'перший елемент списку 
И5ЇВОХІ.АсІсІІЕет "Другий" 'другий елемент списку 
И5ЇВОХІ.АсІсІІЕет "Третій" 'третій елемент списку 
ИзІїВохІ.СІеаг 'очистити список 
'другий спосіб заповнення списку: 

ИзіВохІ. І_І5І: = Аггау("Перший , "Другий", "Третій") 

ЕпсІ 5иЬ 

'процедура обробки події Сііск (натиск лівою кнопкою миші) 
Ргіуаіе 5иЬ ІІ5іВох1_С1іск() _ 
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'вивести в надпис форми вибраний елемент, його індекс, 
кількість елементів 

ІІ5ЄгРогт8.СарРіоп = ІЛбТВохі.Тєхі: & & 

ИзііВохі.Изіііпсієх _ 

& "/" & ИзііВохі.И зІїСоипІ: 

Епсі 5иЬ 

'процедура обробки події КеуОомп (опущена клавіша на 
клавіатурі) 

Ргіуаїе 5иЬ І.І5І:Вох1_Кеу0омп(Ву\/а1 КеуСосІе Аб 
МЗР огтз . Ке1:игп1гг1:е8ег, Ву\/а1 ЗМІЯ: Аб ІгтЬе^ег) 

'якщо натиснуто "Іпзегї", додати новий елемент 

І-р КеуСосІе = уЬКеуІпБегІ: ТИеп ИбіВохі.А сІсШіет "Ріовий", 

ИбїВохі. Ибіііпсієх + 1 

'якщо натиснуто "Оеіеїе", видалити елемент 

І-р КеуСосІе = уЬКеуРеІеІіе Тбеп ИбіВохі . КетоуеІІіет 

ИбііВохі. Ибіііпсієх 

Е псі 5иЬ 

Новий 2/4 _х] 

0 Перший 

0 Третій 

&ШШШЕШ 

0 Новий 


і ±1 


Рисунок 2.12 - Елемент керування ЬізіВох 

ЬібШох з кількома колонками і мультивибір 

В прикладі ІІ5ЄГРогт9 показано можливість створення 
елементів керування ИзТВох з кількома колонками та можливість 
вибору кількох елементів з одного списку (рис. 2.13). 


РгІуаТе 5иЬ ІІ5ЄгРогт_Іпі1:іа1І2е() 

Ріт А(0 То 1, 0 То 1) Аб 51:гіп§ 'масив 


58 









'заповнити масив 

А(0„ 0) = 1 
А(0, 1) = "Перший" 

А(1, 0) = 2 
А(1, 1) = "Другий" 

ИзіїВохІ.СоІитпСоипІ: = 2 'кількість колонок 
І_І5І:Вох1. і_іб1: = А 'заповнити список масивом 
ІЛБІїВохІ.СоІитпНісНіЬБ = "20;20" 'ширина колонок 
ИзіїВохІ.ТехІїСоІитп = 2 'колонка ^ елемент якої 
повертається Техї 
ЕпсІ БиЬ 

'процедура обробки події КеуИомп (опущена клавіша на 
клавіатурі) 

Ргіуаїе БиЬ І.І5-|:Вох1_Кеу0омп (ВуУаІ КеуСосІе Аб 
МБРоппб . Ке1:игп1п-|:е8ег , Ву\/а1 5Иі-РІ: Аб ІгтЬе^ег) 

'якщо натиснуто "Іпзегі" 

1-Е КеуСосІе = уЬКеуІпБегІ: ТЬеп 

'якщо виключений мультивибір, то включити^ і навпаки 
ИбііВохі .МиІІііБеІесІ: = ІІ-р(ІІ5І:Вох1.Ми1-|:і5е1ес-|: = 
■РтМи11:і5е1ес'І:5іп§1е, ^тМиГіїіБеІесІїМиІІіі, 

ТтМи Іі: І5 е 1 е с1:5 і п § 1 е) 

ЕпсІ 1-Е 

'якщо натиснуто "Оеіеґе" 

1-Е КеуСосІе = уЬКеуОеІеІіе ТЬеп 

'і змінюється від 0 до кількості елементів-1 
Рог і = 0 То ИбііВохі . ИвІїСоипС - 1 

'якщо елемент вибраний, додати його в ІІ5ЇВох2 
1-Е ИбСВохі .Беїесіїесі(і) ТЬеп І_І5І:Вох2.АсІсШ:ет 
ИбїВохі. Ибі:(і л 1) 

Мехі: і 
ЕпсІ 1-Е 
ЕпсІ БиЬ 
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Рисунок 2.13 - ИзІВох з кількома колонками і мультивибір 

Клас СотЬоВох - список з текстовим полем 

В прикладі ІІзегРогтІб показано використання елемента 
керування СотЬоВох (комбінований список), який являє собою 
поєднання ТехВох і І_І5ЇВох (рис. 2.14). Має ті ж властивості, що 
ЬібііВох і додатково має властивість Техі: (рядок в текстовому 
полі). 


Ргіуаїе БиЬ ІІ5егРогт_Іпі1:іа1І2е() 

СотЬоВохІ. Изі: = Аггау(1, 2, 3 ^ 4^ Б, 6^ 7) 'заповнити 
список 

СотЬоВохІ. ИзШомг = 4 'у списку показувати 4 рядка 
СотЬоВохІ.МаСсЬКеяиігесІ = Тгие 'заборона введення у 
текстове поле значень ^ яких немає у списку 

ЕпсІ БиЬ 

'процедура обробки події СЬапде (зміна значення текстового 
поля) 

Ргіуа1:е БиЬ СотЬоВох1_СЬап§е() 

'вивести у надпис форми текст текстового поля і індекс 
вибраного елемента 

ІІ5ЄгРогт10.Сар1:іоп = СотЬоВохІ.ТехС & & 

СотЬоВохІ. Ьібіііпсієх 

ЕпсІ БиЬ 
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Рисунок 2.14 - Елемент керування СотЬоВох 


Класи 8сго11Ваг і 8ріпВийоп - смуга прокручування і лічильник 

В прикладі ІІзегРогтІІ показано використання елементів 
керування БсгоІІВаг (смуга прокручування) і БріпВиЕІіоп 
(лічильник), які дозволяють користувачу виставити задане значення 
їх властивості \/а1ие шляхом натиску кнопок зі стрілками або 
переміщення повзунка (рис. 2.15). Основна їх подія - С6ап§е (зміна 
значення). 


Ргіуаіе 5иЬ ІІ5ЄгРогт_Іпі1:іа1І2е() 

БсгоІІВагІ .ОгіеігЬаїіоп = РтОгіепРаІііопНогігопІіаІ 
'орієнтація 

БсгоІІВагІ.Міп = 0 'мінімальне значення 
БсгоІІВагІ.Мах = 10 'максимальне значення 
БсгоІІВагІ.5та11СИап§е = 1 'малий крок зміни значення 
БсгоІІВагІ. Іаг§еСІіап§е = 2 'великий крок зміни значення 
БсгоІІВагІ.Реіау = 10 'затримка подій зміни значення 
БріпВиЕЬопІ.Міп = 0 'мінімальне значення 
БріпВиЕЬопІ.Мах = 10 'максимальне значення 
БріпВиЕЬопІ.5та11Сїіап§е = 1 'малий крок зміни значення 
ЕпсІ БиЬ 

'процедура обробки події СЬапде (зміна значення) 

Ргіуаіе БиЬ 5сго11Ваг1_С!іап§е() 

'змінити надпис на формі на значення БсгоІІВагІ 
Ц5ЄгРогт11.Сарї:іоп = БсгоІІВагІ.УаІие _ 
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Епсі БиЬ 

'процедура обробки події 5 ріпіір (натиснуто кнопку "вверх") 
Ргіуабе БиЬ 5ріпВи1і'І:оп1_5ріпІір() 

'збільшити значення на 2 

БріпВиРІюпІ. \/а1ие = БріпВиЕЬопІ. \/а1ие + 2 

ЕпсІ 5иЬ 

'процедура обробки події Сбапде (зміна значення) 

Ргіуабе БиЬ 5ріпВи1:-|:оп1_СМап§е() 

'змінити надпис на формі на значення ЗріпВиїїопІ 
ІІзегРогтІІ.СарІіоп = БріпВиЕЬопІ. \/а1ие 
ЕпсІ БиЬ 

2 _х] 


І 


ЛІ _І ЛІ 


Рисунок 2.15 - Елементи керування БсгоІІВап і БріпВиї'Ьоп 
Клас ТаЬ8ігір - набір вкладок 

В прикладі ІІ5ЄГРогт12 показано використання елемента 
керування ТаЬБїпір (набір вкладок), за допомогою якого 
користувач може вибрати потрібну вкладку (рис. 2.16). На 
ТаЬБІїгір можна розташувати інші елементи керування, але одні і 
ті ж для різних вкладок. Основною властивістю є 
Беїесіесіїїет. Іпсіех (індекс вибраної вкладки), а основна подія - 
СИап§е (зміна вкладки). 


Ргіуабе БиЬ ІІ5ЄгРогт_Іпі1:іа1І2е() 

ТаЬБбгірІ.МиІбіКом = Тгие 'дозволити кілька рядків вкладок 
ТаЬБбгірІ.ТаЬОгіепбабіоп = -РтТаЬ0гіеп1:а1:іопІе-Рі: 


62 






'орієнтація 

ТаЬЗІїгірІ.ТаЬІпсІех = 1 'вибрано вкладку з індексом 1 
ТаЬ51:гір1.ТаЬ5 .Іїет(0) .Сарііоп = "А" ‘надпис першої 
вкладки 

ТаЬ51:гір1.ТаЬ5.І1:ет(1) .Сарііоп = "В" 'надпис другої 
вкладки 

ТаЬ51:гір1.ТаЬ5.АсІсІ "ТаЬЗ", "С", 2 'додати третю вкладку 

ЕпсІ 5иЬ 

'процедура обробки події СЬапде (зміна вкладки) 

Ргіуаііе 5иЬ ТаЬ51:гір1_СІіап§е() 

'змінити надпис на індекс вибраної вкладки 
ІаЬеІІ.Сарііоп = ТаЬЗІїгірІ. Беїесіїесіїїіет .Іпсіех 

ЕпсІ 5иЬ 

и^егрогтіг X | 



Рисунок 2.16 - Елемент керування 


аЬЗігір 


Клас МиКіРа§е - набір сторінок 

В прикладі ІІзегРогтІЗ показано використання елемента 
керування Ми11:іРа§е (набір сторінок), за допомогою якого 
користувач може вибрати потрібну сторінку з розташованими 
тільки на ній елементами керування (рис. 2.17). Основною 
властивістю є БеІесЕесІІЕет. Іпсіех (індекс вибраної сторінки), а 
основна подія - С6ап§е (зміна сторінки). 


Ріш ТехіВохІ Ая Сопігої 'об'єкт ТехїВохІ 
Ргіуаііе 5иЬ ІІ5егРогт_Іпі1:іа1І2е() 
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Ми11іРа§е1.Ра§Є5(0).Сар1іоп = "А" 'змінити надпис сторінки 
Ми11іРа§е1.Ра§Є5(1) .Сарііоп = "В" 'змінити надпис сторінки 
'створити новий об'єкт ТехіВохІ 
5е1 ТехіВохІ = 

Ми11іРа§е1. Ра§Є5(1) . Сопігоіб . Асі сі ("Рогтз .ТехІВох. 1", 
"ТехіВохІ' , \/І5ІЬ1е) 

ТехіВохІ.\/І5ІЬ1е = Тгие 'зробити видимим 
ЕпсІ 5иЬ 

'процедура обробки події Сїіск 
Ргіуаіе 5иЬ СоттапсІВи11оп1_С1іск() 

ТехіВохІ.Техі = "Неііо!" 'змінити текст 

ЕпсІ 5иЬ 

'процедура обробки події СЬапде (сторінка змінена) 

Ргіуаіе 5иЬ Ми11іРа§е1_С1іап§е() 

'змінити надпис форми на індекс вибраної сторінки 
ІІзегРогтІЗ. Сарііоп = Ми11іРа§е1.5е1ес1есІІ1ет.ІпсІех 
ЕпсІ 5иЬ 

о _х] 

А |в| 


Соттапсі Вийоп 1 


Рисунок 2.17 - Елемент керування 


УГиШРа§е 


Клас Іта§е - картинка 

В прикладі ІІзегРогтМ показано використання елемента 
керування Іта§е (картинка), яка призначена для виведення 
довільного растрового зображення на форму (рис. 2.18). Основна 
властивість - Рісіиге, якій слід присвоїти результат функції 
ЬоасІРісІиге, що завантажує растрове зображення з файлу. 
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Ргіуаііе 5иЬ ІІ5ЄгРогт_Іпі1:іа1І2е() 

'з об'єктом Ітадеї 
ІлІі±Н Іта§е1 

. РісЬиге = Іоас1Ріс1:иге("сІ:\иіІМ00ІлІ5\Паркет.Ьтр") 
'завантажити картинку 

. РісІїигеЗігеМосІе = РтРісІїигеЗігеМосІеСІір 'розмір 
картинки 

. Ріс1:игеТі1іп§ = Тгие 'замостити 
. РісРигеАІі^птеїтІ: = РтРіс1:игеА1і§птеп1:Сеп1:ег 
'вирівнювання 

ЕпсІ ІліНИ 
Епсі 5иЬ 


и5€гРогт14 X | 



Рисунок 2.18 - Елемент керування Іта§е 

РОЗДІЛ 3. БІБЛІОТЕКИ КОМПОНЕНТІВ 
Клас Арріісаїіоп - програма Ехсеї 

Об’єктна модель Ехсеї (Місгозой Ехсеї 11.0 Оіуесі ЕіЬгагу) 
дозволяє звертатись з УВА-програми до усіх основних компонентів 
програми Ехсеї: робочих книг, робочих листів, комірок, діаграм [4, 
6, 11, 15, 18, 19, 23, 29, 31-34, 40, 41, 43-46]. В прикладі показано 
використання основних властивостей і методів об’єкта 
АррИсабіоп, який являє собою саму програму Ехсеї. Скопіюйте 


65 






наступний код в модуль Мосіиіеі і створіть модуль МосІи1е2 з 
пустою процедурою таіп. 


РиЬІіс 5иЬ таіп() 

'деякі властивості Арріісаііоп: 

РеЬи§.Ргіпі Арріісаііоп.АсіІУеІлІогкЬоок.№те 'ім'я активної 

книги , або скорочено АсїІуеИогкЬоок.Иоте 

РеЬи§.Ргіпі Арріісаііоп.АсіІУе5Иееі.№те 'ім'я активного 

листа 

РеЬи§.Ргіпі; Арріісаііоп.АсіІуеСеІІ.УаІие 'значення 
активної комірки 

'ім'я активного листа книги^ в якій виконується макрос 
РеЬи§. Ргіпі: ТІіізІлІогкЬоок. АсііуєЗИєєі . №те 
Арріісаііоп.Саісиїаііоп = хІСаІсиїаііопАиіотаііс 'режим 
обчислень 

Арріісаііоп.Сарііоп = "Моя програма" 'надпис 
Арріісаііоп.Сарііоп = Етріу 'надпис за замовчуванням 
Арріісаііоп. Се11з(1, 1).\/а1ие = 1 'значення комірки Ехсеі 
( 1 , 1 ) 

Арріісаііоп.РізрІауЗіаіизВаг = Тгие 'показувати рядок 
стану 

Арріісаііоп.ЗіаіизВаг = 'Неііо!" 'текст у рядку стану 
Арріісаііоп. 5сгеепІірсІаііп8 = РаІ5Є 'не оновлювати екран 
Арріісаііоп. 5сгеепІ1рсІаііп§ = Тгие 'оновлювати екран 
РеЬи§.Ргіпі: Арріісаііоп.Уегзіоп 'версія Ехсеі 
Арріісаііоп.ЕпаЬІеСапсеІКеу = хііпіеггирі 'переривати 
виконання натиском Сїгі-Вгеак 

Арріісаііоп.\л/іпс!о\л/5і:а1:е = хІМахішігесІ 'стан вікна 

'деякі методи Арріісаііоп: 

Арріісаііоп.Саісиїаіе 'обчислити книгу 
'вивести діалогове вікно, результат присвоїти і 

і = ІприіВох("Виконати (1),відкласти виконання (2),вийти 
(3)", "Вибір", 0) 

5е1есі Сазе і 'вибір і 
Сазе 1 

Арріісаііоп.Кип "УВАРго]'ес1:.МосІи1е1.таіп" 'виконати макрос 
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Са5Є 2 

'відкласти виконання макроса на 10 секунд 
Арріісаіііоп.ОпТіте І\Іом + Тіте\/а1ие( 0:00:10 )^ 
"Мосіиіеі.таіп" 

Саве З 

Арріісаіііоп .(^иі! 'вийти з Ехсеі 
Сазе ЕІ5Є 
ЕпсІ Беїесі: 

Арріісаїіоп.ОпКеу " л {а}'\, "Мосіиіеі.таіп" 'виконати макрос 
піля натиску Сігі-А 

'конвертувати формулу з формату К1С1 у формат А1 
ОеЬи§.Ргіпі: Арр1ісаїіоп.Сопуег1:Рогти1а( =51ІМ(К1С1: К5С1)'\, 
хІКІСІ, хІАІ) 

'виділити перетин діапазонів 
Арріісаіііоп. Ііг1:ег5ЄСІ:(Кап§е( "А1: В2' ), 

Кап§е('В2:СЗ )).5е1есі: 

'виділити об'єднання діапазонів 

Арр1іса1:іоп.І)піоп(Кап§е( А1:В2'), Кап§е("В2:СЗ")) .Беїесі: 
апзм = Арріісаііоп. Ріа1о§5 (хЮіа1о§0реп) .5Иом 'показати 
діалогове вікно відкриття файлу 

'Еиаіиаіе конвертує ім'я Ехсеі в об'єкт або значення 
Арріісаііоп. Еуа1иа1:е("А2") .\/а1ие = 2 'перетворити рядок в 
об'єкт 

[А2].\/а1ие = 2 ’ або 

ОеЬи§. Ргіпі: Арріісаїіоп. Еуа1иа1:е("51ІМ(А1: А2) 1 ) ’ 
перетворити рядок в функцію 

'ОеЬид.Ргіпі Арріісаііоп.Еуаіиаіе("5іІМ(1,2)") ' або 
Зеї г = Кап§е("А1:А2") 

РеЬи§.Ргіпі: Арріісаїіоп.5ит(г) ’ виклик вбудованої функції 
листа Ехсеі 

'ОеЬид.Ргіпі Арріісаііоп.ИогЬзЬееіРипсііоп.5ит(г) ' або 
'ОеЬид.Ргіпі Арріісаііоп.5ит(1, 2) ' або 

'ОеЬид.Ргіпі ту_^ипсі(3) 'виклик функції користувача листа 
Ехсеі 

ЕпсІ 5иЬ 
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Книгаї 

Листі 

Листі 

11.0 

=51ІМ($А$1:$А$5) 

З 

З 


Запис макросів в Ехсеї 

Користувач може записати свої дії з програмою Ехсеї у вигляді 
макроса. Цей макрос потім можна зберегти, виконувати і 
редагувати. За допомогою макросів можна вивчати об’єктну модель 
Ехсеї навіть без перегляду документації. Виберіть в меню Ехсеї 
Сервис/Макрос/ЕІачать запись... Введіть назву макроса і натисніть 
Ок. Введіть в комірку А1 значення 1, в комірку А2 значення 2, в 
комірку АЗ формулу =СУММ(А1:А2). ЕІатисніть кнопку ■, щоб 
зупинити запис. Очистіть лист. Виконайте макрос з меню 
Сервис/Макрос/Макросьі.../Вьіполнить. Макрос повинен відтворити 
ваші дії. Щоб відредагувати макрос натисніть 
Сервис/Макрос/Макросьі.../Изменить. 


5иЬ Макрос1() 

АсїіуєСєП . РогтиІаКІСІ = "1" 

Кап§е( "А2") . 5е1ес1: 

АсїіуєСєП . РогтиІаКІСІ = "2" 

Кап§е( АЗ") .5е1есі: 

АсїіуєСєіі . РогтиІаКІСІ = =51ІМ(К[-2]С: К[-1]С)" 

Кап§е("А4") . 5е1ес1: 

Е псі 5иЬ 


Функція користувача Ехсеї 


В прикладі показано створення функцію користувача Ехсеї 
мовою УВА, яку можна буде використовувати в комірках листа 
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Ехсеї. Створіть новий модуль, який містить код функції ту_-Рипс1:. 
В комірку Ехсеї введіть формулу =ту_-Рипсі:(2) і натисніть Епїег. 
Повинен з’явитись результат 4. 


РиЬІіс Рипсііоп ту_Рипс1:(х Аб РоиЬІе) 
ту^ипсї = х + 2 
ЕпсІ Рипсііоп 


Клас Кап§е - діапазон комірок Ехсеї 

Клас Кап§е описує окрему комірку Ехсеї або діапазони комірок. 
Об’єкт цього класу можна отримати так: Кап§е("<назва 
діапазону>" ). В прикладі показані основні властивості і методи 
класу Кап§е. 


РиЬІіс 5иЬ таіп() 

АсіІуеЗМееІ:.ІІ5ЄсІКап§е.Сіеаг 'очистити діапазон з 
значеннями 

АсіІуеЗМееІ:.ІІзесІКап^е.СІеагСопїепіБ 'очистити вміст 
АсііуєЗМєєі: .ІІзесІКап^е.СІеагСоттепІіБ 'очистити коментарі 
АсіІуеБІпее-І:.ІІ5ЄсІКап§е.СІеагРогтаїБ 'очистити формати 
'змінити значення комірки А1 листа Листі книги 
\/ВА_ехатр іез 

ІлІогкЬоок5( \/ВА_ехатр1Є5') .ІлІогкБМееІіБ ( 'Листі ).Кап§е( А1'). 
Уаіие = 5 

Кап§е( Листі !А1 ).\/а1ие = 5 'або так 
Кап§е( А1').Уаіие = 5 'або так 
Сє11б( 1, 1).\/а1ие = 5 'або так 

Комб( 10) .КомНеі^Ьі: = ЗіапсІагсІНеі^ІтІ: 'стандартна висота 10- 
го рядка 

Со1итп5(10) .СоїитпНісНіИ = ЗііапсіагсІІл/ісІ1:М 'стандартна ширина 
10-го стовпця 

Кап§е( 1 Е5').ЕпїігеКом.СІеаг 'очистити рядок 5 
Кап§е( 1 Е5').ЕпїігеСоІитп.Сіеаг 'очистити стовпчик Е 
Кап§е( А1' ).АсІсіСоттеїгІ: "Коментар" 'додати коментар 
РеЬи§. Ргіпі: Кап§е("А1") .СоттеїтІї.ТехІ: 'текст коментаря 
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Кап§е( 'А1' ). Ропі:. 5іге = 12 'розмір шрифту 
Кап§е( 'А1' ). Ропі:.Соїог = КСВ(255, 0^ 0) 'колір шрифту 
Кап§е('А1:В2 ).пате = "МуКап§е" 'назва діапазону 
РеЬи§.Ргіпі Кап§е("А1: В2") .Соипі 'кількість комірок 
Кап§е('В1:В2 ).Рогти1а = =$А$1+1" 'формула 

Кап§е('В1:В2 ).РогтиІаКІСІ = =(К1С1)+1" 'формула в 

форматі К1С1 

Кап§е("С1:02").РогтиІаАггау = "=ТКАМ5Р05Е(А1:В2)" 'формула 
масиву 

Кап§е( 1 Е1' ). Рогтиіаі-осаі = =СУММ(С1:02)” 'формула 
неангломовної версії Ехсеі 

РеЬи§.Ргіпі Кап§е("Е2") .Техі 'вміст у текстовому форматі 
РеЬи§.Ргіпі Кап§е("А1") .АсісІге55(Тгие, Раїве) 'адреса 
РеЬи§. Ргіпі Кап§е("СІ:02").Кои/5.Соипі: ' кількість рядків 
РеЬи§.Ргіпі Кап§е("С1:02").Соїитпз.Соипі ' кількість 
стовпців 

Кап§е(''А1' ). ЕпіігеСоїитп.АиіоРіі ' авторозмір 

Кап§е('АЗ:А4 ).Сиі 'вирізати в буфер обміну 

Кап§е( 'А1').Сору 'скопіювати в буфер обміну 

Кап§е( 'А4‘ ).РазіеЗресіаІ х1Разіе\/а1ие5 'вставити з буфера 

значення 

Кап§е('РІ10") .Реіеіе 'знищити 

Кои/5(1) . ІП5ЄГІ 'вставити новий рядок перед першим рядком 
Кап£е( 'А1' ) .0-р-р5Єі(2, 0).\/а1ие = 1 'змінити значення 
комірки АЗ 

Кап§е( 'А4:А5 ).5е1есі 'виділити діапазон 
Зеїесііоп.Сору 'копіювати виділення в буфер обміну 

'методи для роботи з діапазонами 
'заголовки полів 

Кап§е('Р1') .\/а1ие = "Значення": Кап§е( 01').\/а1ие = 

"РІомер" 

Кап§е( 1 Р2’ ) .\/а1ие = 1 'перше значення 
'геометрична прогресія хівгоміЬ з кроком 2 і кінцевим 
значенням 16 

Кап§е( 1 Р2').ОаіаЗегіез хІСоїитпБ, хІСгоміИ, 5іер:=2, 
5іор:=16 _ 
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'перші значення 
Кап§е( С2').\/а1ие = 1 
Кап§е( С3').\/а1ие = 2 

Кап§е( С2:СЗ').АиРоРіІІ Кап§е('С2:Сб ) 'автозаповнення: 
1,2,3,4,5 

'автофільтр по другому стовпчику, значення 2 або З 
Кап§е( Р2:Сб 1 ) .АиіоРіІІіег 2, "2", хЮг, "З" 

Кап§е( Р2:Сб 1 ).АиіоРіїіег 'відмінити автофільтр 
'заголовки полів для критеріїв 

Кап§е( Р7').\/а1ие = "Значення": Кап§е( С7").\/а1ие = 

"РІомер" 

Кап§е( С8" ) .Уаіие = 4 'критерій 

'розширений фільтр копіює знайдене (за критерієм І7:С8) в 
діапазон НІ:II 

Кап§е( Р1:0б') .АсІуапсесІРії'Ііег хІРіІРегСору, 

Кап§е( Р7:С8 "), Кап§е("Н1:І1") 

Кап§е( Р2:Сб' ) .Зогі: Кап§е("С2 ), хЮе5СепсІіп§ 'сортування 
за спаданням 

Кап§е( С2 :С6' ). Ріпсі( 4 ) .Асїіуаїе 'активувати комірку зі 
знайденим значенням 4 

Епсі 5иЬ 


Класи \Уогк8Ьееї і \Уогк8ЬееІ8 - робочий лист і листи Ехсеї 

Класи ІлІогкзИееІ: і ІлІогкзИееІіз описують робочий лист і листи 
Ехсеї. Об’єкт листа можна отримати так: ІлІопкзЬееІіз (<індекс 
або назва яиста>). В прикладі показані основні властивості і 
методи цих класів. 


РиЬІіс 5иЬ таіп() 

ІлІогк5Іпееб5(1) .Асбіуабе 'активувати перший лист 
АсііуєБИєєі.УізіЬіє = Тгие 'зробити видимим активний лист 
Ас1:ІУе51іее1:.ІІ5ЄСІКап§е.С1еаг 'очистити діапазон з 
значеннями 

РеЬи§.Ргіпі: Ас1:ІУе5Ііее1:.51:апсІагсІНеі§ІтІ: 'стандартна висота 
рядків 

РеЬи§.Ргіпі: ІлІогкьМееІіБ.Соипі: 'кількість листів _ 
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ІлІогкзМееІіз.АсІсІ 'додати лист на початок 
5 = ІлІогк5Иее1:5 (1) .пате 'присвоїти ім'я першого листа 
Іл/огкзіпееііз (1) .Сору ІлІогкБНееІіБ (3) 'скопіювати перед третім 
листом 

\л/огкзІпее1:з (1) .Моує ІлІогквМееІіБ (3) 'перемістити перед третім 
листом 

Іл/огкзіпееііз (з) .ОеІеРе 'знищити 
Іл/огкзіпееііз (2) .ОеІеРе 'знищити 
ІлІогк5Мее1:5(2) .Асіїіуа'ііе 'активувати другий лист 
ІлІогкзИееІізС'ЛистІ") .Асїіуаїе 'активувати лист "Листі" 

ЕпсІ БиЬ 


Класи УУогкЬоок і \УогкЬоок$ - робоча книга і книги Ехсеї 

Класи ІлІогкЬоок і ІлІопкЬоокз описують поняття робочої книги 
і усіх відкритих книг Ехсеї. Об’єкт книги можна отримати так: 
1лІогкЬооІ<5(<індекс або назва книги>). В прикладі показані 
основні властивості і методи цих класів. 


РиЬІіс БиЬ таіп() 

РеЬи§.Ргіпі: АсІїІуеІлІогкЬоок.АсІїІуеБІїееІі.пате 'ім'я 
активного листа активної книги 

РеЬи§.Ргіпі: Ас1:ІУЄІлІогкЬоок.ІлІогк5Ііее1:5(1) .пате 'ім'я 
першого листа активної книги 

РеЬи§.РгіпР АсРІуеІлІогкЬоок.БауесІ 'чи збережено 
РеЬи§. Ргіпі ІлІогкЬоокБ. Соипі 'кількість робочих книг у 
сімействі ИогкЬоокз 
ІлІогкЬоок5.АсІсІ 'додати книгу 

ІлІогкЬоок5(2) .Асііуаіе 'активувати другу книгу 
ІлІогкЬоок5(2) .Ра55могсІ = 'Пароль" 'установити пароль на 
другу книгу 

ІлІогкЬоок5(2) .Ра55могсІ = 'зняти пароль 

ІлІогкЬоок5(2) .БауеАз "ту_ЬооІ<2" 'зберегти як ту_Ьоок2.хіз 

ІлІогкЬоок5(2) .Бауе 'зберегти 

РеЬи§. Ргіпі: іліогі<Ьооі<5(2) .На5Ра55могсІ 'чи має пароль 
ІлІогкЬоок5(2) . РгіпРОиР 'вивести на друк 
ІлІогкЬоок5(2) .СІ05Є 'закрити 
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ІлІогкЬоокз.Ореп "ту_Ьоок2" 'відкрити ту_Ьоок2.хіз 
'змінити значення комірки А1 листа Листі книги ту_Ьоок2 
ІлІогкЬоокз( ту_Ьоок2' ) .ІлІогкзМееїзС "Листі" ). Кап§е( 'А1 1 ).\/а1и 
е = З 

ІлІогкЬоокз( ту_Ьоок2').Сіозе 'закрити ту_Ьоок2.хіз 
КІН "ту_Ьоок2.х1з" 'знищити файл ту_Ьоок2.хіз 

Епсі 5иЬ 


Події об'єкта ХУогкЬоок 

В прикладі показано обробку таких подій робочої книги Ехсеї, 
як Ореп, ВеЕогеСІозе, 5Ііее1:5е1ес1:іопСРіап§е, 5Ііее1:СІіап§е, 
БІіееІїВе-РопеКі^ІтІїСІіск. Вставте наступний код в об’єктний 
модуль "і—І ЗтаКнига класу ІлІопкЬоок. В вікні Іттссііаїс будуть 
виводитись повідомлення, що відповідають різним подіям робочої 
книги. 


'Процедура обробки події Ореп (відкриття книги) 

Ргіуаїе 5иЬ ІлІогІ<Ьоок_Ореп() 

Мз§Вох "Збірник прикладів УВА-програм" & СНг(ІЗ) & "Автор: 
Копей В.Б." 

Епсі 5иЬ 

'Процедура обробки події Ве^огеСіозе (перед закриттям 
книги) 

Ргіуаіе 5иЬ ІлІогІ<Ьоок_Ве-РогеС1озе(Сапсе1 А5 Вооіеап) 

Мз§Вох "УВА - найлегше програмування!" 

ЕпсІ 5иЬ 

'Процедура обробки події БЬееіБеіесііопСбапде (зміна 
виділення на листі) 

Ргіуаіе 5иЬ ІлІогкЬоок_5Мее1:5е1ес-|:іопСМап§е(ВуУа1 зИ Аз 
0Ь]ес1:, ВуУаІ Таг^еї Аб Кап§е) 

РеЬи§.Ргіпі "Зміна виділення " & Таг^еі.Асісігезз 

ЕпсІ 5иЬ 
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'Процедура обробки події БбееіСбапде (зміна на листі) 
Ргіуаіе 5иЬ ИогкЬоок_5Иее-|:СИап§е(Ву\/а1 біі Аб 0Ь]ес1:, ВуУаІ 
Таг§е1: Аз Кап§е) 

РеЬи§.Ргіпі "Зміна у ' & Таг^еї. Асісігєбб 
Е псі 5иЬ 

'Процедура обробки події 5 бееіВе^огеКідЬіСііск (натиск 
правої кнопки міші на листі) 

Ргіуаіе 5иЬ ІлІогкЬоок_5Гіееі:Ве-РогеКІ8ІтІ:С1іск(Ву\/а1 бїі Аб 
ОЬ^ есІ:, ВуУаІ Таг^еї Аб Кап§е, Сапсеї Аб Вооіеап) 

РеЬи§.Ргіпі: "Правий натиск на ’ & Таг§е1:. Асісігєбб 
Е псі 5иЬ 


Клас СЬагі - діаграма Ехсеї 

Клас Сіла пі: описує поняття діаграми Ехсеї [19]. Об’єкт активної 
діаграми можна отримати за допомогою властивості АсіІуеСИагІ:. 
ЕІаступний приклад додає дані на лист Ехсеї і за цими даними будує 
діаграму з логарифмічною регресією (рис. 3.1). 


РиЬІіс 5иЬ таіп() 

'Додати дані на лист: 

Кап§е( А1:А6 )=Арр1іса1:іоп.Тгап5ро5е(Аггау(1,2,3,4,5,6)) 
Кап§е( В1:Вб )=Арр1іса1:іоп.Тгап5ро5е(Аггау(0,3,6,7,9,11)) 
СіїагіБ. АсІсІ 'додати діаграму 

АсіІуеСГіагІ:.СИагїТуре = хІХУБсаіІіегБтоо'ІіІі 'тип діаграми 
АсіІуеСМагІ:. 5еі5оигсеРа1:а 

5оигсе:=5іїееїБ("Лист1").Кап§е( 'А1:Вб )^ Р1оіВу:= _ 
хІСоїитпБ 'дані для діаграми 
АсіІуеСГіагІ:. Іосаїіоп І/\І1)еге:=х1І-Оса1:іопА50Ь]ес1:, 

№ате:= Листі" 'розміщення 
ІлІііИ АсіІуеСГіагІ: 'з активною діаграмою 
.НаБТіїІе = Тгие 'має заголовок 
.СМагіТііІе.СМагасІїегБ.Тех-І: = "Графік" 'надпис 
заголовка 

.Ахе5(х1Са1:е§огу, хІРгітагу) .НаБїііІе = Тгие 'має 
надпис осі категорій 
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. Ахе5(х1Са1:е80гу, хІРгітагу). АхібТіііє . Сіїагасіегз .Техі: 
= "х" 'надпис 

.Ахе5(х1\/а1ие, хІРгітагу) .НазТііІе = Тгие 'має надпис 
осі значень 

.Ахе5(х1\/а1ие, хІРгітагу) .АхізТііІе.СИагасІегз.Тех-І: = 
"у" 'надпис 

'додати криву регресії, її рівняння, та величину 
достовірності апроксимації 

. ЗЄГІЄБСоПЄСІІОП (1) . ТГЄПСІ1ІПЄ5 . АсІсІ 
Туре:=хИо§агі1;іітіс л _ 

ОізрІауЕяиаііоп: =Тгие, ОізрІауКБяиагесІ: =Тгие 
Епсі ІлІііН 
Епсі 5иЬ 

Графік 



Рисунок 3.1- Діаграма Ехсеї 


Об’єктна модель ХУоггі 


Об’єктна модель \Уогс1 (Місгозой XVоісі 11.0 ОЬ]ссІ ІлЬгагу) 
дозволяє звертатись з УВА-програми до усіх основних компонентів 
програми XVогсі: документів, вікон, діапазонів, абзаців тощо [15, 16, 
19, 21, 29, 31-33, 45]. В прикладі показано використання основних 
компонентів А'огсі, їх властивостей і методів. Перед виконанням 
виберіть в меню: Тооіз/Веїегепсез/Місгозой \УогсІ 11.0 ОЬ]есІ 
ІлЬгагу. 


РиЬІіс 5иЬ таіп() 

Ріт мсІАрр Аб іліогсі .Арріісаіііоп 'об'єкт програма іліогсі 
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Оіт мсЮос Аб іліогсі.О оситепі: 'об'єкт документ 

Беї: мсІАрр = Сгеа1:еОЬзес1:( Іліогсі. Арріісаіііоп") 'створити 

об' єкт іліогсі 

5е1: и/сЮос = мсІАрр.ОоситепІіБ.АсІсІ 'створити об'єкт документ 
мсІАрр.\/І5ІЬ1е = Тгие 'зробити видимим іліогсі 
мсЮос.Ас1:ІУЄІл(іпсІом.\/іем.2оот.Ра§еРі'4; = мсІРа^еРіІВеБІїРі'І: 
'масштаб виду 

мсЮос.АсІїІуеІлІіпсІом.ЗеІесІїіоп.ТуреТехІ: "Ьеііо иогісі!" 
'надрукувати текст 

мсЮос. АсІїІуеІлІіпсІом.ЗеІесІїіоп. ТуреРага§гарИ 'надрукувати 
знак абзацу 

мсЮос.АсІїІуеІлІіпсІом.ЗеІесІїіоп.ТуреТехІ: "\/І5иа1 Ва5Іс Рог 
АррІісаРіопз" 

'колір діапазону з перших шести символів 
мсЮос. Кап§е(0, 6) . Ропі;.Соїог = мсІСоїогВІие 
'виділити діапазон з перших двох слів 
мсЮос. Кап§е(мсЮос .ІлІогсІ5(1) .БРагІ:, 
мсЮос .Іл(огсІ5(2) . ЕпсІ).5е1ес1: 

'розширити виділення до символу "!" 
мсЮос. АсРіуєілііпсіом.Зєієсіііоп. ЕхРепсІ СИагасРег:="!" 

'вивести текст виділення 
ОеЬи§. РгіпР 

мсІАрр. АсРІуеОоситепІ:. АсРіуєілііпсіоіл/. ВеІесРіоп .Техі: 
мсЮос.Ас1:ІУЄІл(іпсІом.5е1ес1:іоп.Сору 'копіювати виділення в 
буфер обміну 

мсЮос .АсРІуеІлІіпсІом.ЗеІесІїіоп. ІпвегРАРРег "!!" 'вставити 
після виділення "І!" 

'відмінити виділення і перемістити курсор в його кінець 
мсЮос. АсРІуеІлІіпсІом.БеІесІїіоп. Соїіарзе 
ОігесРіоп: =мсІСо11ар5еЕпсІ 
мсІАрр.ОоситепРБ.АсІсІ 'додати документ 

п = мсІАрр.АсІїІуеОоситепІі.пате 'ім'я активного документа 
мсІАрр.Ас1:ІУЄІлІіпсІом.5е1ес1:іоп.Ра5І:е 'вставити з буфера 
обміну 

мсІАрр.0оситеп1;5(2) .ілііпсіоіл/ 5 (1) .АсРІуаРе 'активувати другий 
документ 

'надати жирний шрифт першому слову першого абзацу 
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мсІАрр.0оситеп1:5(2).Рага^гарМз (1) .Кап§е. ІлІогсІ5(1). Ропі:.Воісі 
= Тгие 

'вивести перший символ першого слова першого речення 
РеЬи§. Ргіпі: 

мсІАрр.0оситеп1:5(2) .Зепііепсез (1) .Іл/огсІз( 1 ) .СМагас1:ег5(1) 
мсІАрр.0оситеп1:5(п) .5ауеА5 ( 'е: \ту_с!ос.сіос' ) 'зберегти як 
мсІАрр.0оситеп1:5('ту_сІос') .Сіозе 'закрити документ з іменем 
ту_дос 

мсІАрр.ОоситепІіБ.Ореп ("е: \ту_сІос.сіос ) 'відкрити документ 
'знайти слова "шогід" і замінити на "Могід" 

ІлІіїН Ас1:ІУе0оситеп1:.Соп1:еп1:.РіпсІ 
.С1еагРогта1:1:іп§ 

.Техі: = "могісі" 

. Керіасетепі. С1еагРогта1:1:іп§ 

. Керіасетепі: .Техі: = "іліогісі" 

.Ехесиїїе Керіасе:=и/сІКер1асеА11 
ЕпсІ ілііііИ 

мсІАрр^иіі: 'вийти з Іліогд 

ЕпсІ 5иЬ _ 

Иеііо и/огісі! 

Ь 

ОЬЕ Аиіотаїіоп - використання об’єктів Ехсеї з УВА-сценарію 

\\огс1 

ОЬЕ Аиіотаїіоп - це основана на СОМ технологія 
міжпроцесової взаємодії, яка дозволяє одній програмі управляти 
об’єктами, що реалізовані в іншій програмі [5, 20, 29]. Сервер 
автоматизації - це програма (СОМ сервер), функціональність якої 
доступна через СОМ інтерфейси (такі як ГОізраІсЬ) ін ш им 
програмам, які називаються клієнтами автоматизації. Для прикладу 
УВА-програма (клієнт автоматизації) може використовувати 
елементи керування АсііуєХ (сервери автоматизації). Або можна 
використовувати об’єкти Ехсеї з УВА-сценарію \Уогс1. Для цього 
виберіть в меню Т о о 18/К с 1 с г с п се 8 / М і с г о 8 о її Ехсеї 11.0 ОІфссС ЕіЬгагу. 
В програмі оголосіть Аиіотаїіоп-об’єкт класу 
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Ехсеї.Арріісаііоп і створіть його функцією СгеаІеОЬзесІ:, 
якій потрібно передати програмний ідентифікатор 
"Ехсеї. Арріісаіііоп". Наступний приклад створює об’єкт 
програми Ехсеї, записує значення в комірку першого листа активної 
книги, зберігає файл і виходить з Ехсеї. 


РиЬІіс БиЬ таіп() 

Ріт хІАрр Аз Ехсеї.Арріісаііоп 
Ріт хІВоок Аз Ехсеї.ІлІогкЬоок 
Ріт хІБИееІ: А5 Ехсеї.ІлІогкзИееІ: 

Беї хІАрр = СгеаІеОЬзесІ:("Ехсеї.Арріісаііоп ) ’ Ехсеі 

хІАрр.ІлІогкЬоокз.АсІсІ ' нова робоча книга 

Беї хІВоок = хІАрр.АсІІуеІлІогкЬоок ’ активна книга 

'5еі хІВоок = хІАрр.ИогкЬоокз.Ореп("е:\туіезіЬоок.хІ5") ' 

або відкрити 

Беї хІБИееІ: = хІВоок.ІлІогкзМееІіз (1) ’ перший лист 

хІБИееІ:. Се11з(1, 1).\/а1ие = 1 ' записати в комірку 

' хІАрр .\/ізіЬіе = Тгие ' зробити видимим 

хІВоок.БауеАз ("е: ХтуІезІїЬоок.хІз') 'зберегти як 

' хІВоок.5аие ' або зберегти 

хІАрр.(Зиіі: ’ вийти з Ехсеі 

ЕпсІ БиЬ 


Містом*!! 8Ье11 Сопігоіз Апсі Аиіотаііоп 

\¥іпбо\У8 8Йе11 - це графічний інтерфейс користувача 
операційної системи \УІПСІО\¥8. Для доступу до цього інтерфейсу з 
УВА програми можна використовувати об’єкти бібліотеки Місгозой 
8Ье11 СопІгоІ8 Апсі АиЮтайоп. За допомогою цих об’єктів ви 
можете отримати доступ до файлової системи, виконувати 
програми, змінювати системні налаштування тощо. Для доступу до 
бібліотеки виберіть в меню: Т00І8/КЄҐЄГЄПСЄ8/ВГ0\¥8Є... 
С:\\¥ШОО\¥8\8у8Іет32\8НЕЕЕ32.сі11. 


Ріт зМІ Аз 5Ме1132.БМеІІ 'об'єкт Бкеіі 
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РиЬІіс БиЬ таіп() 

Беї: бМІ = Сгеа1:еОЬ]ес1:("БЬеІІ.Арріісаііоп 1 ) 'створити 
об'єкт 5 Не і і 

5М1.СопігоІРапеІІІіет "аррміг.срі" 'відкрити "Установка і 
видалення програм" 

бііі . Ехріоге "с:\" 'відкрити Ехріогег 
БМІ.Ореп "с: \и/іпсІом5" 'відкрити папку 
БМІ.РіїеКип 'відкрити "Запуск програми" 

Зеї Роїсіег = 5Іі1.І\Іате5расе('сі: V ) 'створити об'єкт папка 
сі: \ 

Роїсіег.СоруРІеге "с:\Ьооі.іпі" 'копіювати в д:\ файл 
Беї: Рііе = Роїсіег.раг5епате( Ьооі. іпі ) 'створити об'єкт 
файл Ьооі.іпі 

Рііе.ІпуокеУегЬ "Ореп" 'відкрити файл 

ЕпсІ БиЬ 


Об’єктна модель ХУіпсіот 8сгір1 Нозі 

Сервер сценаріїв \УІПСІО\¥8 (\\ЙПСІО\¥8 8сгір1 Нозі) — компонент 
\¥іпс!о\¥8, призначений для запуску програм мовами сценаріїв 
(ІЗсгірі, УВ8сгірї). Об’єктна модель \У никнув 8сгірі Но8Ї дозволяє 
звертатись до сервера сценаріїв з метою виконання 
адміністративних задач [19, 20]. Виберіть в меню 
ТооІ8/Веґегепсе8/Вго\У8е... С:\\¥ШОО\¥8\8у8Іет32\\У8Ііот.осх і 
\Уіпсіо\\’8 8сгірІ Но8І ОЬ]ЄСІ М осіє І. 


Ріт 5Іі Аб ІІлІБІїКипіітеІ-іЬгагу .ілібИБИєіі 'об'єкт ИвбЗбеіі 
РиЬІіс БиЬ таіп() 

Беї: 5М = Сгеа1:еОЬ]ес1:("ІлІ5сгір1:.5Ье11") 'створення об'єкта 
Іл/віїЗіїеИ 

5М.Кип 'стсі.ехе /с пеі зЬаге сі=сі : \" 'виконати стд.ехе з 
параметрами 

БІі.Кип "стсі.ехе /к пеі зЬаге сі /сіеіеіе" 

арр = 5Ме11( "саїс.ехе", 1) 'виконати саіс.ехе 

5іі.АррАсіІуаіе "Саісиїаїог" 'активувати вікно (або так: 

АррАсіІуаіе арр) _ 
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зИ. ЗепсІКеуз "1{+}2{Еп1;ег}" г Тгие 'надіслати вікну клавіші 
'прочитати з реєстру 

ОеЬи§.Ргіпі зН.Ке£КеасІ("НКЕУ_СиККЕМТ_и5ЕК\Соп1:го1 
Рапе1\0езк1юр\5сгееп5ауеТіте0и1:") 

'записати в реєстр 

зН.ГСе§ІлІгі1:е 'тЕУ_СІІККЕІ\ІТ_ІІ5ЕК\Соп1:го1 
Рапе1\0езк1юр\5сгееп5ауеТіте0и1 :", _ 

"600% "КЕ6_52" 

РеЬи§.Ргіпі зЬ.РорирС'їех-Ь", 0, "Ііііііе" л 1) 'показати 
діалогове вікно 

РеЬи§.Ргіпі зіі.ЕхрапсІЕпуігоптепіБІїгіп^з("%ІлІіпОіг%" ) 'шлях 
до папки Иіпдомз 

зИ. і_о§Еуєп1: 1, "Неііо!" 'записує повідомлення з помилкою в 
системний журнал 

ЕпсІ 5иЬ 


Об'єкти файлової системи в \¥іпсіо\¥8 8сгірї Нозі ОЬіесі Мойеі 

Наступний приклад показує використання об’єктів файлової 
системи (диски, файли, текстові потоки) за допомогою об’єктної 
моделі \УІПСІО\¥8 8сгірї Нозі. 


Ріт -Рзо Аз ІІлІзИКипіітеІіЬгагу. РіІеЗузіетОі^есІ: 'об'єкт 
файлової системи 

Ріт сігуз Аз ІИзМКипіітеІіЬгагу.ОгІуез 'диски 

Ріт сігу Аз ІІлІзМКипІіітеїіЬгагу.ОгІуе 'диск 

Ріт -Р1 Аз ІІлІзИКипіітеЕіЬгагу. Рііе 'файл 

Ріт із Аз ІІлІзИКипіітеЕіЬгагу.ТехІїЗІїгеат 'текстовий потік 

РиЬІіс 5иЬ таіп() 

'об'єкт файлової системи 

Зеї -Рзо = Сгеа1:еОЬзес1:("5сгір1:іп§.Рі1е5у5І:етОЬ)ес1:") 

5еі сігуз = -Рзо.Ргіуєз 'диски 

РеЬи§.Ргіпі сігуз.Соипі 'вивести кількість дисків 
Рог ЕасН сігу Іп сігуз 'для кожного диску 
'якщо тип диску КетоиаЬіе і він доступний, тоді 
І-р сІгу.РгІуеїуре = КетоуаЬІе АпсІ сігу. ІзКеасІу ТЬеп _ 


80 




РеЬи§.Ргіпі сігу.Огіуєі-Єіієг 'вивести букву диска 
'для кожного файлу в кореневій директорії 
Рог ЕасЬ 11 Іп сігу. КооІРоІсІег. Ріієб 

І-р 11.пате = "Аиіогип.іпі" ТЬеп 'якщо ім'я 
"Аиіогип.іпто 

ІІ.Сору "сІ:\" 'копіювати на диск д 
'відкрити файл для читання 
Беї: І5 = 11.0репА5Техі51геат(РогКеасІіп§) 
РеЬи§.Ргіпі ІБ.КеасІАІІ 'читати все 
І5.СІ05Є 'закрити 

11.пате = "Аиіогип.іпі" 'змінити ім'я 

ЕпсІ її 

N0x1 
ЕпсІ І-Р 
Мехі 
ЕпсІ БиЬ 


Виконання сценаріїв ХУіпсіот 8сгірі Нові 

В прикладі показано створення і виконання сценаріїв мовами 
Ізсгірі і УВзсгірі з УВА-програми. Файл сценарію зберігається на 
диску і виконується за допомогою сервера сценаріїв (\У8сгірі.ехе або 
сзсгірі.ехе). Сервер сценаріїв запускається з УВА-програми за 
допомогою методу Кип об’єкта ІІлІзИКипІітеНЬгапу .ІлІзІїБІїеІІ. 


Ріт бїі А5 ІІлІБЇіКипіітеІ-іЬгагу .ілібїіБїієіі 'об'єкт ИзбБНеіі 
РиЬІіс БиЬ таіп() 

Беї б її = Сгеаіе(^есі("ІлІ5сгірі.5їіе11 ) 'створити об'єкт 
МзЬЗЬеіі 


'Створення файлу сценарію мовою Озсгірі 

Ореп "с:\ту.]5" Рог Оиіриї Аб #1 'відкрити файл для запису 
Ргіпі #1, 'Ааг оЬ]Аг§ 5 = ІлІБсгірІ .Аг§итепІ5;" 'записати у 
файл 

Ргіпі # 1 , "Іог (і=0; і<=оЬ]Аг§5.Соип1()-1;і++)" 'записати 
у файл _ 
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Ргіпі #1, "{ІлІБсгірі. ЕсРю(раг5еР1оаі(оЬзАг§5(і) )+2); }" 
'записати у файл 
Сіозе #1 'закрити файл 

зІі.Кип "и/5сгірі.ехе с:\туоз 1 2" 'виконання сценарію з 
параметрами 


'Створення файлу сценарію мовою \/Взсгірі 
Ореп "с:\ту.уЬ5" Рог Оиіриі А5 #1 'відкрити файл для 
запису 

Ргіпі: #1 , "Рог ЕасРі оЬ^ Іп ІлІЗсгірі.Аг^итепіз" 'записати у 
файл 

Ргіпі #1 , "х=С0Ь1(ІлІ5сгірі.5ісІІп.КеасІ1іпе)" 'записати у 
файл 

Ргіпі #1 , "ІлІ5сгірі.5ісЮиі.ІлІгііеІ-іпе оЬ]'+х" 'записати у 
файл 

Ргіпі #1 ^ "№хі" 'записати у файл 
Сіозе #1 'закрити файл 

зИ.Кип "сзсгірі.ехе с:\ту.уЬз 1 2" 'виконання в консолі 
сценарію з параметрами 


'Створення файлу сценарію ХМЇ мовами \/Взсгірі і дзсгірі 
Ореп "с:\ту.мзі" Рог Оиіриі Аб #1 'відкрити файл для 
запису 

Ргіпі #1, "<раска§е>" 

Ргіпі #1 , "<;]оЬ ісІ=" "туз'оЬ"" >" 'один пакет може містити 
кілька робіт 

Ргіпі #1, "сзсгірі 1ап§иа§е=""І/ВБсгірі"">" 

Ргіпі #1 } "Рипсііоп Р" 

Ргіпі #1 у "ІлІЗсгірі.ЕсЬо Іл15сгірі.5сгіріРи11І\Іате" 

Ргіпі #1 у "ЕпсІ Рипсііоп" 

Ргіпі #1, "</зсгірі>" 

Ргіпі # 1 , "<зсгірі 1ап§иа§е=""ІБсгірі"">" 

Ргіпі #1 , "Р();" 'виклик функції, написаній на \/Взсгірі 
Ргіпі #1, " </зс гірі>" 

Ргіпі # 1 , "</]‘оЬ>" 

Ргіпі #1 , "</раска§е>" 

Сіозе #1 'закрити файл _ 


82 





зІі.Кип "іл/зсгірії.ехе //]'оЬ: ""ту]оЬ"" с: \ту .іл/з-Р" 'виконання 
сценарію 

ЕпсІ 5иЬ 


Параметричні моделі у 80ІЛШУ0КК8 АРІ 

80ЬГО\¥(ЖК8 - це відома комерційна система 
автоматизованого проектування (САПР), яка призначена для 
тривимірного параметричного проектування виробів, підготовки 
креслень та інженерного аналізу. Об’єктна модель і АРІ 
80ЬШ\¥0КК8 дозволяє звертатись до компонентів програми з 
мови УВА [8, 9, 12, 14, 27]. Багато ін ш их САПР теж мають АРІ для 
УВА, зокрема САТІА, Ретар, Ітспіог [2], АиІоСАБ [24]. Приклад 
показує можливість перебудови параметричної моделі 
80БШЗУ0КК8, яка містить параметр "01@Ех1:гисІе1". Щоб 
створити цей сценарій в 80БШ\УСЖК8 виберіть в меню 
ТооІ8/МасгоЛ8е\у... Для доступу до програми 80БШ\У0КК8 в 
сценарії використовується об’єкт зи/Арр. Для доступу до моделі 
використовується об’єкт Раг4. Значення параметра (в метрах) 
присвоюються властивості ЗузІїетУаІие параметра. Після зміни 
значення параметра модель потрібно перебудувати функцією 
ЕсШіКеЬиіІсІ. Цей приклад можна адаптувати для автоматизації 
зміни будь-яких параметричних моделей, в тому числі вузлів. 


РиЬІіс БиЬ таіп() 

Ріт зи/Арр Аз ОЬ]ЄСІ: 'об'єкт ЗоііМогкз Арріісаііоп 

Ріт Рагу Аз ОЬіесІ: 'об'єкт документ 5 оііМогкз 

Зеї зи/Арр = СгеаУеОЩесІїС'БІсІІлІогкз.АррІіса'Іііоп") 'створити 

об'єкт 

Беї: Рагу = зи/Арр.А сУіуєОос 'активний документ 
'змінити значення параметра на 20 мм 

Рагу. Рагате1:ег("01@Ех'1:гисІе1") .БузІїетУаІие = 20 / 1000 
Рагу. ЕсНіїКеЬиіІсІ 'перебудувати модель 

ЕпсІ БиЬ 
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Параметричні моделі з рівняннями у 80ІЛШ¥0КК8 АРІ 


Приклад показує можливість перебудови параметричної моделі 
80ЬШ\¥0КК§, яка містить рівняння (рис. 3.2), шляхом зміни цих 
рівнянь. Модель містить чотири рівняння (рис. 3.3), одне з яких є 
глобальною змінною б. Рівняння в розділі Реайігез дозволяє 
вимкнути елемент РіІІеН (скруглення). Решта рівнянь задають 
розміри моделі - довжину ("02@5ке1:сЬі") і товщину ("01@Во55- 
ЕхРгисІеІ"). Зверніть увагу, що параметр висоти моделі не 
залежить від рівнянь. 


Рхі Уравнения 
@ Т >*=10 

оіф Маїегіаі <поІ зреаЯесі> 
[р Спереди 
[р Сверху 
[р Справа 
ь Исходмая точка 


Во55-Ех{гиЬе1 


Г ЗкеїсЬІ 

) раїеіі 



З 

Параметрична модель з рівняннями 


№те 

Уаіие / Едиаііоп 

3 СІоЬаІ \/агіаЬІе5 


ЧГ 

= 10.0 



3 Реаїиге* 


•РіІІеН' 

= '5ирргЄ55ЄЙ' 



3 Едиайоп* 


’02@5кеісН1* 

= * 2 

'ОШВон-ЕхІгиРеГ 

= • Ь'/2 




Рисунок 3.3 - Рівняння моделі 


ОрРіоп ЕхрІісіР 
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5иЬ таіп() 

Оіт БмАрр Аб ЗІсІІлІогкБ. 51сІ1л/огкз 
Оіт биМосієі Аб ЗІсІІлІогкБ . МосІе10ос2 

Оіт бмЕяпМ^г Аб ЗІсІІлІогкБ. ЕяиаііопМ§г 'менеджер рівнянь 

Оіт і Аб і-опе 'індекс рівняння 

Оіт пСоипі Аб Ьопе 'кількість рівнянь 

5еі БмАрр = Арріісаііоп. ЗІсІІлІогкБ 
5еі бмМосієі = БмАрр. АсііуєРос 'активний документ 
5еі 5 іл/ЕяпМ§г = бмМосієі .СеіЕяиаііопМ§г 'менеджер 
рівнянь 

РеЬи§.Ргіпі "Еііе = & Біл/МосІеІ.СеіРаіЬІМате 'шлях до 

моделі 

пСоипі = бмЕяпМ§г.С еіСоипі 'кількість рівнянь 
5іл/ЕяпМ§г.Еяиаііоп(0) = ""Ь"" = 10.0" 'змінити перше 

Рог і = 0 То пСоипі - 1 'для кожного рівняння вивести 
інформацію 

ОеЬи§.Ргіпі: " Еяиаііоп(' & і & ") = & 

бмЕяпМ^г. Еяиаііоп(і) 

ОеЬи§.Ргіпі \/а1ие = & бмЕяпМ§г. \/а1ие(і) 

РеЬи§.Ргіпі Іпсіех = & бмЕяпМ§г.Б іаіиБ 

РеЬи§.Ргіпі " СІоЬаІ уагіаЬІе? ” & 

5мЕяпМ§г.С1оЬа1\/агіаЬ1е(і) 

ІМехі і 

ЕпсІ 5иЬ _ 

Рііе = 0:\ЕяиаііопАРІіЄБі.5ЮРКТ 
Еяиаііоп(0) = "Ь" = 10.0 
Уаіие = 10 
Іпсіех = 0 

СІоЬаІ уагіаЬІе? Тгие 
Еяиаііоп(І) = "02@5кеісЬ1"= "Ь" * 2 
\/а1ие = 20 
Іпсіех = 1 

СІоЬаІ уагіаЬІе? Раїзе 
Еяиаііоп(2) = "01@Во55-ЕхігисІе1" = "Ь" / 2 
\/а1ие = 5 
Іпсіех = 2 
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СІоЬаІ уагіаЬІе? Раїье 
ЕяиаІііоп(З) = "Ріііеїіі" = "5иррге55ес1" 

\/а1ие = 1 
Іпсіех = З 

СІоЬаІ уагіаЬІе? РаІ5е 

Симуляція кінематики у 80ІЛШУ0КК8 АРІ 

Під час проектування складних механізмів часто постає питання 
аналізу їх кінематичних характеристик - визначення переміщень, 
швидкостей, прискорень точок механізму в заданий момент часу. 
Параметричні тривимірні моделі механізмів в 80ЬГО\¥0КХ8 
дозволяють оперативно змінювати параметри механізму, які 
визначають його положення в заданий момент часу. 
Використовуючи засоби 80ЬЮ^0КК8 АРІ можливо розробити 
таку програму, яка самостійно виконує: зміну необхідних 
параметрів механізму, визначення положення ланок і їх 
табулювання в таблиці Ехсеї. Засобами Ехсеї можна проаналізувати 
отримані дані (наприклад залежність переміщень точок механізмів 
від часу) і побудувати потрібні графіки. 

Нижче наведено приклад програми мовою УВА для аналізу 
кінематики кривошипно-кулісного механізму поперечно- 
строгального верстата. Необхідно під час рівномірного руху 
кривошипа знайти кінематичні характеристики повзуна: 
переміщення, швидкість і прискорення в заданий момент часу. 

Із законів механіки відомо, що швидкість і прискорення 
визначаються як 


Аг Ду 



де Ах - елементарне переміщення за час Аі, Ау - елементарна 
зміна швидкості за час Аі. 

Спочатку будуємо тривимірну параметричну модель механізму 
в 80ЬШ\¥0КК8 (рис. 3.4). Окрім всіх необхідних зв’язків 
накладаємо додатковий зв’язок, який визначатиме положення 
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кривошипа в даний момент часу. Проставляємо також розмір Ь, 
який визначає положення повзуна в заданий момент часу. 



Рисунок 3.4 - Тривимірна параметрична модель кривошипно- 
кулісного механізму поперечно-строгального верстата 

Вся робота з 8\У АРІ зводиться до зміни положення кривошипа 
і визначення положення повзуна. Засобами Ехсеї можна визначати 
швидкості і прискорення точок механізму, використовуючи згадані 
формули. 

Діалогове вікно програми мовою УВА повинно містити текстові 
поля для введення повного імені параметра, який задає положення 
привідної ланки (кривошипа), наприклад 01@УГ0Л2. та параметра 
положення шуканої точки, наприклад РШ1@Примечания. Це 
розширює можливості програми і робить її універсальною. В 
діалоговому вікні слід ввести початкове, кінцеве положення 
привідної ланки та крок зміни її значення. Слід також ввести спосіб 
задання значень вхідних параметрів - за допомогою введення 
значень у форму або в таблицю Ехсеї. В останньому випадку 
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можливо розраховувати кінематичні параметри для заданого закону 
руху привідної ланки. 


Розрахунок кінематики механізму 


Введіть тут повну назву вхідного 
параметра 


Початкове значення 
положення, ммфад) 


Кінцеве значення 
положення, ммфад) 


мшапримечания к Р 0К значень І о,2 

положень, ммфад) 1 



РЩУгол2 

Введіть тут повну назву вихідного 
параметра 


Виберіть спосіб задання значень 
вхідних параметрів: 

<• Параметри задаються в формі 
С Параметри задаються таблично 


Табулювання 


Вихід 


Рисунок 3.5 - Вікно програми 


Програма складається з процедури ініціалізації ділового вікна 
(рис. 3.5) ІІ5ЄпРогтІпі1:іа1І2е(), в якій починається робота з 
сесією 80ЬШ\¥0КК8, завантажується збірка 80ЬЮ\¥(ЖК8 та 
створюється об’єкт РапФ. Тут також встановлюються початкові 
властивості елементів ділового вікна. 

Процедура Р_-Рогт() виконує табулювання кінематичних 
параметрів для заданих у формі параметрів переміщень привідної 
ланки. Отримуються значення потрібних параметрів з текстових 
полів ділового вікна. В циклі змінюється переміщення привідної 
ланки від початкового до кінцевого значення, виконується 
перебудова моделі, отримується переміщення шуканої точки і 
записується у таблицю Ехсеї. 
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Процедура Р_1:аЬ () виконує подібні функції, але значення 
переміщень отримуються не в циклі, а шляхом зчитування 
попередньо введених даних в комірках Ехсеї. 

Коли натискається кнопка СоттапсІВи1:1:оп1 розпочинається 
процедура СоттапсІВи'1:'1:оп1_С1іск(), в якій перевіряється 
значення перемикачів 0р1:іопВи1:1:оп. Якщо включений 
ОрІїіопВиІіІіопІ то виконується процедура Р_-Рогт, а якщо 
0р1:іопВи1:1:оп2 - процедура Р_1:аЬ1. 

Нехай необхідно розрахувати кінематичні характеристики, якщо 
кривошип рухається рівномірно з ш видкістю 0,2 рад/с. В 
діалоговому вікні вводимо назву вхідного і вихідного параметрів, 
початкове і кінцеве положення кривошипа і крок зміни. Після 
натискання кнопки “Табулювання” в таблицю Ехсеї будуть записані 
значення переміщення кривошипа і визначені з параметричної 
моделі відповідні значення переміщення повзуна. По цим даним 
Ехсеї автоматично розрахує значення швидкостей і прискорень і 
побудує графік шуканої кінематики повзуна (рис. 3.6). 

Дана програма може бути використана для розрахунку 
кінематичних параметрів і більш складних механізмів, і не тільки 
плоских. Слід зауважити, що в 80ЬШ\¥0КК8 існує 
спеціалізований модуль Моііоп для аналізу кінематики і динаміки 
механізмів з жорсткими ланками. 


- - - - переміщення, дм-швидкість, мм/с 

-прискорення, мм/с2 



Рисунок 3.6 - Кінематика повзуна поперечно-строгального верстата 
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Сопбі білЮосРАКТ = 1 'константи 
\ 5 ісііл/огкз \ ватр і ез \ аррСотт \ змсопзї. б 
Сопбі бмОосАББЕМВІ-У = 2 
Сопбі біл/ОосОКАНІІМС = З 

Оіт змАрр Аб ОЬ]есі 'оголошення об'єкта змАрр 

Оіт Рагі Аб ОЬ]есі 'оголошення об'єкта Рагі 

Оіт х Аб ОоиЬІе 'оголошення змінної параметра моделі 

Оіт і Аб Іпіе§ег 'оголошення змінної лічильника записів 

бази даних 

'Ініціалізується форма користувача 
Ргіуаіе 5иЬ ІІ5ЄгРогт_Іпіііа1І2е() 

МуРаіИ = СигОіг 'визначення поточного каталогу 
МуРаіИ = "С:\5ІсІіл/огк5\ПСВ" 

'створення об'єкта зшАрр 

Беї: БмАрр = СгеаіеС^есі("Б1с1ІлІогк5.Арр1ісаііоп ) 

'створення об'єкта Рагі 

Беї: Рагі = БмАрр.ОрепОос(МуРаіИ + "\ПСВ.5ЮА5М ', 
бмОосАББЕМВІ-У) 

1-Е Рагі І5 І\ІоіЬіп§ ТЬеп 
Ехіі БиЬ 

'якщо Рагі не існує, то вихід 

Еібє 

'інакше активувати 

Беі Рагі = 5іл/Арр.АсіІуаіе0ос("ПСВ.5ЮА5М' ) 

ЕпсІ Іі 

'початкові параметри елементів діалогового вікна 
ТехіВохІ.Техі = "01@Угол2" 

ТехіВохБ.Техі = "К01@Примечания" 

ОрііопВиііопІ.УаІие = Тгие 
ТехіВох2.Техі = "0" 

ТехіВохЗ.Техі = "1" 

ТехіВох4.Техі = "0,1" 

ЕпсІ БиЬ 

'Натиснута кнопка СоттапдВиїїопІ 
Ргіуаіе БиЬ СоттапсІВиііоп1_С1іск() 

'якщо включений перемикач ОрїіопВиїїопІ, то р_^огт _ 
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І-р ОрІіопВиІІопІ.\/а1ие = Тгие ТИеп р_Рогш 
'якщо включений перемикач 0рііопВиііоп2, то р_іаЬІ 
ІТ ОрІіопВиїїопг. \/а1ие = Тгие ТИеп р 1:аЬ1 
Епсі 5иЬ 

'Процедура виконує табулювання кінематичних параметрів для 
заданих у формі параметрів переміщень 
Ргіуаіе 5иЬ р_Тогт() 

Оіт рі, р2 Аз Зігіп^ 

Оіт хр, хк, хсі А5 ОоиЬІе 

і = 3 'початкове значення лічильника 

'отримати дані з текстових полів 

рі = ТехіВохІ.Техї 

р2 = ТехіВох5.Техі 

хр = СОЬЦТехїВохг.Техї) 

хк = СОЬЦТехіВохЗ.Техї) 

хсі = СОЬЦТехїВохА.Техї) 

'очистити діапазон 
Кап§е( ЬЗ:Ь1000 1 ).Сіеаг 
Кап§е( еЗ:ЄІ000 1 ).Сіеаг 
'зміна значень параметрів 
Рог х = хр То хк 5±ер хсі 
Рагі. Рагатеїег(рі) .5у5іет\/а1ие = х 
Рагї. ЕсІіїКеЬиіїсІ 'Перебудова моделі 
'Виведення значень параметрів у відповідні комірки 
Ехсеі 

Сєііб( і_, 2).\/а1ие = х 

Сєііб (і, 5).\/а1ие = Рагі. Рагатеіег(р2) .5уБіет\/а1ие * 

1000 

і = і + 1 'зміна значення лічильника 
ІМехТ х 
Епсі 5иЬ 

'Процедура виконує табулювання кінематичних параметрів для 
заданих у таблиці параметрів переміщень ^ швидкостей і 
прискорень 
Ргіуаіе 5иЬ р 1аЬ1() 

Оіт рі, р2 Аб Бігіпе 

_ 'отримати текст з текстових полів _ 
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рі = ТехІВохІ.ТехІ: 
р2 = ТехІВохБ. Техі: 

'очистити діапазон 
Кап§е( еЗ:е1000').Сіеаг 

'цикл від трьох до кількості чисел в діапазоні В 
Рог і = 3 То Се11з(1, 8).\/а1ие 
'зміна значень параметрів 

Рагі:. Рагатеїіег (рі) . 5уз1:ет\/а1ие = Се1І5(і, 2).\/а1ие 
Рагі:. ЕсНРКеЬиіІсІ 'перебудова моделі 
'Виведення значень параметрів у відповідні комірки 
Ехсеі 

Се1І5(і, 5) .\/а1ие=Раг1:. Рагате1:ег(р2) .5уз1:ет\/а1ие*1000 
N0x1: і 
Епсі БиЬ 

'Процедура закриття діалогового вікна 
Ргіуаііе БиЬ СоттапсІВи1:1:оп2_С1іск() 

ІІзегРогтІ. Нісіе 
Епсі БиЬ 


Креслення у 80Ьт\¥0КК8 АРІ 

Наступна програма являє собою макрос 80ЬГО\¥0КК8 2015 
мовою УВА та призначена для автоматизації побудови нового та 
перебудови існуючого креслення 80ЬЮ\¥СЖК8 за даними 
структури типу 0га\л/іп§0а1:а. Програма складається з модулів 
Огаи/іп§\/іе\л/, Ога\л/іп§5Ііее1:, 0га\л/іп§0а1:а, Масго21, 
ІІзегРогтІ (рис. 3.7). Модуль Огаи/іп§\/іеи/ містить опис класу 
виду, модуль Ога\л/іп§5Ііее'І: - класу листа, модуль Ога\л/іп§Оа1:а - 
класу, що описує дані усього креслення. Модуль Масго21 містить 
реалізацію процедур для побудови креслення за даними 
0гаи/іп§0а1:а (Сепега1:еОга\л/іп§), перебудови креслення 
(ІІрсІаТеОпаи/іп^), головну процедуру (таіп) та інші допоміжні 
функції. Робота програми починається з процедури таіп, де 
створюється тестовий об’єкт класу 0га\л/іп§0а1:а та викликаються 
процедури Сепега1:е0га\л/іп§ або ІІрсІа1:е0га\л/іп§. Іншим 
способом роботи з програмою є виконання модуля ІІзегРогтІ, 
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який створює вікно для введення та редагування даних 
0га\л/іп§0а1:а (рис. 3.7). У вікні можна вибрати потрібний лист і 
вид, змінити значення атрибутів виду, зберегти їх (кнопка Зате), 
створити креслення (конопка ОепегаіеБга\уіп§) або перебудувати 
існуюче (кнопка ІірсІаІсОга\\їп£). 

Для роботи програмі необхідна 80ЬГО\У(ЖК8 2015-2018. В 
інших версіях програма не тестувалась. Послідовність установки і 
виконання: 

1. Скопіювати в довільне місці на диску каталог, який містить 
наступні файли: 

• ирсіаІеВга\уіп§.8\ур - макрос 80ЬШ\У0КК8 мовою УВА, 

• Вга\уіп£І.8ІЛЖКЛ¥ - креслення, яке містить згенеровані і 
додані вручну види (рис. 3.9), 

• РаїТ І .8ІЛ9РКТ - довільна деталь з двома конфігураціями (рис. 
3.8), 

• Рагі2.8ІЛЗРКТ - довільна деталь з двома конфігураціями, 

• аЗ-§08І_8Ь1.8І(МгІ - шаблон листа креслення. 

2. Виконати макрос з ЗОЬЮЗУОККЗ так: Т о о 18\М ас го\ В и п... та 
вибрати макрос її р сі а іе Ц г а\у і п 8 \у р. Зявиться вікно де потрібно 
вибрати «Да» для генерації креслення та «Нет» для обновлення 
креслення Ога\уіп£І.8ЬППКЛ¥ (рис. 3.9). 

3. Ін ш им способом виконання програми (з ОШ) є вибір в 
80ЬЮ\¥(ЖК8 меню ТооІ8\Масго\Ес1іі... та вибір макроса 
ирсІаїсО га\у іп§. 8 \у р. Далі потрібно двічі клацнути на модулі 
ІХсг Копті 1 та виконати його (меню РигЛКип ІІ8егРогт). 

Макрос розробив студент групи КМВт-15-1 Букатка Ю. С. під 
керівництвом доцента Копея В. Б. під час виконання завдання 
"8о1іс1\Уогк8АРГТа8к" на 18-й заочній Міжнародній студентській 
олімпіаді з САПР і комп’ютерного моделювання в 
машинобудуванні (1-12 грудня 2016 р., Хмельницький 

національний університет). 
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Рисунок 3.7 - 

Структура макроса і вікно програми 



Рисунок 3.8 - Модель Рагії 
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ІІЦ Огал’іпді 

[аі Аппоіаіюпз 
► □ 5Ьее11 
* О ЗНееЮ 

► ІІІ І БЬееІ Рогта12 
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[ і Огал’іпд \/іе^З 


Рисунок 3.9 - Результати виконання програми - креслення з трьома 

видами 

Модуль класу Рга\уіп§Ра1:а: _ 

'дані класу 

РиЬІіс БИееіз Аз Соїіесііоп 
РиЬІіс Nате Аб Бігіпе 

Ргіуаіе БиЬ С1азз_Іпі1:іа1І2е() 'процедура ініціалізації 
Мате = "сігаміп§0а1:а" 

Беї: БИееїз = Мем Соїіесіїіоп 
Епсі БиЬ 



Модуль класу Рга\уіп§51іее1: 

РиЬІіс уіємз Аз Соїіесїіоп 
РиЬІіс Мате Аб 51:гіп§ 

Ргіуаіе БиЬ С1азз_Іпі1:іа1І2е() 
Nате = "" 

Беї: уіємз = Мем Соїіесїіоп 
Епсі БиЬ 


Модуль класу Вга\¥т§Уіе\у: 

РиЬІіс Мате Аз Бігіп^ 

РиЬІіс МосІеІУіеи/Мате Аб Іпіе^ег '0-*Ргопї, 1-*Ргопї, 2- 
*Васк,3-*іе^ї } 4-*ВідЬї } 5-*Тор, 6-*Воїїот 
РиЬІіс РозіїіопХ Аз РоиЬІе 
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РиЬІіс РобіііопУ Аб ОоиЬІе 
РиЬІіс Ке-РегепсеМосІеІРаіИ Аз 5±гіп§ 
РиЬІіс СоітРі§ига1:іоп Аб Бігіпе 

Ргіуаіе 5иЬ С1а55_Іпі1:іа1І2е() 

Мате = 

МосІеІУіеи/Мате = 0 
РобіїіопХ = 0 
РобіііопУ = 0 
Ке-РегепсеМосІеІРаіМ = 

СоігЕі§ига1:іоп = 

Епсі 5иЬ 


Модуль Масго21: 

Оіт зи/Арр Аз БІсІІлІогкз.БІсІІлІогкз 'об'єкт програма-БоііМогкз 

Оіт зи/МосІеІ Аз ЗІсІІлІогкз.МосІе10ос2 'об'єкт модель 

Оіт змОгам Аз ЗІсІІлІогкз.Огаи/іп§Оос 'об'єкт креслення 

Оіт туУіем Аб Зісіїліогкз.уіем 'об'єкт вид 

Оіт зи/МосІеІОосЕхІ: Аб ЗІсІІлІогкз. МосієЮосЕхіієпбіоп 'об'єкт 

розширення моделі 

Оіт 5м0гаміп§Сотропеіг1: Аб БІсІІлІогкБ .Огаи/іп§СотропеітІ: 

'об'єкт компонент креслення 

Оіт зм5е1ес1:іопМ§г Аб ЗІсІІлІогкБ. 5е1ес1:іопМ§г 'об'єкт 
менеджера вибору 

РиЬІіс тасгоРаіМ Аб 51:гіп§ 'шлях до каталогу з макросом 
(робочого каталогу) 

Оіт ЬооІБіаіиБ Аб Вооіеап 

Оіт Іоп^БіаІіиБ Аб і.оп§, 1оп§магпіп§5 Аб і-оп^ 

'процедура створює креслення за даними даіа 
5иЬ Сепега1:е0гаміп§(сІа-1:а Аб 0гаміп§0а1:а) 

'масив імен стандартних видів 

УіеїліМатез = Аггау("*Ргоп1і ", "*Ргоп1:" 3 "*Васк" 3 "♦Іе-Рі", 
"♦КіеЬі:", "*Тор" , "*Воііот") 

5еі змАрр = Арріісаііоп. 51сІІлІогк5 _ 
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'нове креслення 

5е1: Бід/Огам = змАрр.МемОоситеп1:(тасгоРа1:М & "\\аЗ - 

§05І:_5Іі1. бісісігі :", 0, 0, 0) 

Рог ЕасН 5 Іп сіаііа.ЗМ єєііб 'для кожного листа в даіа 
'новий лист 

ЬооІ5І:а1:и5 = Бід/Огам.№м5Иее1:3(5.N 31110 , 12, 12, 2, 1 , 
Тгиа, тасгоРаІН & ”\\аЗ - ^обі-Бііі. бісісігі:", 0.42, 0.297, 
"По умолчанию") 

Рог ЕасИ V Іп б.уіємб 'для кожного виду листа в даіа 
'новий вид 
5е1: туУіем = 

БмОгам. Сгеа1:е0гам\/іемРготМосІе1\/іемЗ(у. Ке-РегепсеМосІеІРаІіМ, 
УіемМате5(у.МосІе1\/іемМате), у.РобіїіопХ, V.РобіїіопУ, 0) 
‘задати конфігурацію 

туУіеїд/. Ке-РегепсесІСоп-Рі§ига-1:іоп = у.СоїгРі^игаІііоп 

Мехі: V 

Мехі: 5 
Епсі 5иЬ 

'оновлює креслення дгашіпдРаіііМате за даними даіа 
РиЬІіс 5иЬ УрсІа1:еОгаіл/іп§(сІгаіл/іп§Ра1:І'^ат0 Аб Бігіпе, сіаїа 
Аз Огаміп^Оаїа) 

Оіт Бпате Аб Бігіпе 
Оіт сотрИата Аб 51:гіп§ 

Баї: БмАрр = Арріісаїіоп. ЗІсІІлІогкБ 
'відкрити креслення 

Баї: Бід/Огам = 5іл/Арр.ОрепОосб(сІгаіл/іп8Ра1:ІіМат0, З, 0, ", 

Іоп^БІаІиБ, 1оп§іл/агпіп§5) 

БпатаБ = БмОгам.СаІіБІїеаІ^атаБ 'назви листів креслення 
Рог і = 0 То Бід/Огаїл/.СаїБНеаіСоипІ: - 1 'для кожного листа 
Бпате = 5пат05(і) 'назва листа 
Бід/Огам.АсіІуаіаБИеаІ: Бпате 'активувати лист 
РеЬи§.Ргіпі: Бпата 
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У5 = змОгам.5Нееі(5пате) .Се1:\/іем5 'види листа 
І-р ТуреИате(у5) о "Етріу" ТИеп 'якщо є види 
Рог ЕасН V Іп У5 'для кожного виду 

БиОгам. Асііуаіеі/іем у.№те 'активувати вид 
ОеЬи§.Ргіпі у^ате, у.СеіКеТегепсесІМосІеІМате 
'назва виду і його вихідної моделі 
сотрИате = "" 

І-р ТуреМате(у.Се1:\/І5ІЬ1еСотропеп1:5) о "Етріу" 

ТИеп 

Рог ЕасН с Іп у.СеіІ/ізіЬІеСотропепіз 'для 
кожного видимого компонента 

сотрИате = с.Мате 'назва компонента 
№х1: с 
Епсі І-р 

роз = у.Робіііоп 'позиція виду 
5е± ту\/іем = V 'об'єкт виду (необхідно для 
безпомилкової роботи функції СеїОгіепїаїіопМате) 

ОеЬи§.Ргіпі: туї/іем.ЄеіОгіепіаііопМате 'назва 
орієнтації виду (*Ргопї, *іеф : ї...) 

5еі: сіV = ТіпсІ\/іе(л/(5пате, у^ате, сіаііа) 'знайти 

вид у даїа 

І-Р N01: сіу І5 МоіНіпе ТИеп 'якщо є 

ОеЬи§.Ргіпі у.СеіКеТегепсесІМосІеІМате, 
сіу. КеТегепсеМосІеІРаіН 

'якщо назви вихідної моделі не однакові 
І-р у.СеіКе-РегепсесІМосІе^ате о 
сіу. Ке-РегепсеМосІеІРаіИ ТИеп 

РеЬи§.Ргіпі "Кер1асіп§\/іемМосІе1..." 
'замінити вихідну модель на нову 
Кер1асе\/іеіл/МосІе1 5пате, у.Мате, 
сотрМате, ск.Ке-РегепсеМосІеІРаіМ 
ЕпсІ І-Р 

р05 (0) = СІV . Р05ІІІ0ПХ 
р05 ( 1) = СІУ. Р05ІІІ0ПУ 
V .Робіііоп = ро5 'нова позиція 
_ у. КеТегепсесІСоп-Рі^игаііоп = _ 
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ск.Соп-Еі^игаїіоп 'нова конфігурація 

'вибрати вид 
ЬооІБїаіиБ = 

Біл/Огаи/. Ехізпбіоп . 5е1ес1:ВуІ02(у. N 01110 , "ОКАІлІІМС\/ІЕІлІ" , 0, 0, 
0, РаІ50, 0, ІМсгЬІііпе, 0) 

5м0гаи/.5Мои/МатесІ\/іем2 сІУ.МосІе1\/іемМате 
'нова орієнтація виду, або 5шОгаш.5боШатед\/іеш2 "*КідЬї'\ 
-1 

ЕпсІ 1-Е 

Мехі: V 

ЕпсІ 1-Е 
N0x1: і 

Біл/Огаи/. ЕсПіКеЬиіІсІ 'перебудувати модель 

ЕпсІ 5иЬ 

'функція шукає вид у даіа 

РиЬІіс Рипсііоп ^іпсІ\/іеіл/(5Ііе0І^ат0 Аб 5±гіп£, УІемМата Аб 
Б ігіпе, сіаіа Аб Ргаїл/іп^Оаіа) Аб Огаміп§\/іеіл/ 

50І: -РіпсІ\/іе\л/ = Nо1:I^іп§ 

Рог ЕасЬ б Іп сіаіа. БИєзіб 'для кожного листа 
1-Е Б^ата = 5Ие0І^ат0 ТИ0п 

Рог ЕасЬ V Іп б.уіємб 'для кожного виду 
1-Е V.N3(110 = УІеи/Мата ТІ10П 

50І: -Еіпсі\/І 0 іл/ = V 'функція повертає вид або 

Моібіпд 

ЕпсІ 1-Е 
N0x1: V 
ЕпсІ 1-Е 
N0x1: б 

ЕпсІ Рипсііоп 

'процедура заміни вихідної моделі у виді креслення на нову 
тодеіРііеМате 

РиЬІіс БиЬ Кер1ас0\/іеіл/МосІе1(5Ьее-|:Нате Аб Бігіпе, УІеи/Мата 
Аб Бігіпе, сотропепі^атз Аб Бігіпе, тосІеІЕіІеМатз Аб _ 
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5±гіп§) 

Оіт уіємз(0) Аз ОЬіесІ: 'вид 

Оіт Іпз1:апсе5(0) А5 ОЬ^есІ: 'компонент 

Беї: змМосієі = змАрр.АсїІуеОос ‘креслення 

Беї змМосієЮосЕхі: = змМосієі . Ехіепзіоп 

уз = змОгам. БМееІ:(зМееІіМате) .Се1:\/іем5 ‘усі види 

Рог ЕасЬ V Іп уз 'для кожного виду 

І-р у^ате = уіемМате ТЬеп 'знайти вид з іменем 
уіеШате 

Беї: уіємз (0) = V 
ЕпсІ І-Р 

Мехі: V 

ісІ_ = сотропепїМате & & уіемМате 

'вибрати компонент 

Ьооізіаіиз = 5мМосІе10осЕх1:.5е1ес1:ВуІ02(ісі_, "СОМРСМЕМТ 
0^ 0^ 0^ РаІ5е, 0^ Моїііпіпе л 0) 

Беї: зм5е1ес1:іопМ§г = змМосієі. БеІесІіопМапа^ег 

Беї: 5м0гаміп§Сотропеп1: = 

зм5е1ес1:іопМ§г .Се1:5е1ес1:есІ0Ьзес1:6(1, -1) 

Беї: Іпз1:апсе5(0) = зм0гаміп§Сотропеп1:. Сотропепі: 

'замінити модель 

Ьооізїаіиз = змОгам. Кер1асе\/іемМосІе1(тосІе1Рі1еМате, 

(уіємз) (іпзіапсез) ) 

ЕпсІ БиЬ 

РиЬІіс БиЬ таіп() 'процедура для тестування 

СепегаіеОгаміпд та ІІрсІаіеОгаміпд 

'створити об'єкти 

Оіт уіємі Аз Мем Ргаміп§\/іем 

Оіт уієм2 Аз Мем Огаміп§\/іем 

Оіт зМее1:1 Аб Мем Огаміп^БМееІ: 

Оіт зМее1:2 Аз Мем Огаміп^БМееІ: 

Оіт сіаїа Аз Мем Ргаміп^Оаіа 

Беї: змАрр = Арріісаїіоп. БІсІІлІогкз 

тасгоРаїМ = 1)Сазе(змАрр.Се1:Сиггеп1:МасгоРа1:ІіРо1сІег) 'шлях 
до каталогу з макросом 
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ОеЬи§.Ргіпі: тасгоРаІіІі 

'присвоїти атрибутам значення 
уіеіл/1.№те = "Огаміп§ Уіемі" 
уіеи/2.№те = "Огаміп§ \/іем2" 

уіемі.Ке-РегепсеМосІеІРаІіМ = тасгоРаіИ & "Храгїі.5ЮРКТ" 

уіеи/2. Ке-РегепсеМосІе1Ра1;М = тасгоРаІїН & "ХрагіІ.ЗІ-ОРКТ" 

уіемі.СоїгРі^игаІііоп = "По умолчанию" 

уіем2.СоїтРі^игаІііоп = "По умолчанию" 

уіем1.МосІе1\/іеілМ\Іате = 0 

уіем2.МосІе1\/іемМате = З 

5Ііее1:1.№те = "51іее1:0" 

5Иее1:2.№те = "5Ьее1:1" 
уіемі.Р обіїіопХ = 0.15 
уіемі.Р обіііопУ = 0.19 
уієіл/2 . РобііііопХ = 0.3 
уієіл/2 . РобііііопУ = 0.19 

бНєєіі.уіємб. АсІсІ уіємі 'додати види в листи 
бИєєііі.уієіл/б. АсІсІ уієіл/2 

сіаіза. ЗІпееІіБ.АсІсІ бИєєііі 'додати листи в даїа 
сіаііа. ЗІпееІіБ.АсІсІ бИєє1:2 

'5еі ду = /і пд\/іем("5Ьееїв", "Огаміпд Уіемі", даїа) ' тест 
функції пошуку 

'І/ Л/о£ ду І5 Л/оі/ііпд ТЬеп ОеЬид.Ргіпї 
ду. Ке^егепсеМодеіРаїїі 

'вікно з кнопками Уєб-Л/о 

пуаг = Мб§Вох("УЕ 5 -Рог Сепегаїїе Огаіл/іп§" & СНг(ІЗ) & "ог 
N0 ^ог Іірсіаііе 0гаміп§", 4, "Ргєбб ) 

0еЬи§.Ргіпі: пуаг 

І-Р пуаг = 6 ТИеп 'якщо вибрано Уез 

Сепега1:е0гаміп§ сіаїа 'створити креслення 

ЕІ5Є 

'інакше змінити атрибути і оновити креслення 

уіемі. Ке-РегепсеМосІеІРаІіІі = тасгоРаІіІі & "\раг1:2.51РРКТ" 
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уіем2. Ке-РегепсеМосІеІРаІМ = тасгоРаіИ & "Храгіг.БЮРКТ" 

уіем2.Соп-Рі§ига1:іоп = "20" 

уіемі .МосІеІУіеиМате = 2 

уіеиі.РозіііопХ = 0.14 

уіемі. РозіїіопУ = 0.18 

ІІрсІаїеОгаміп^ тасгоРаІИ & "\0гаміп§1. БЮРКИ", сіаїа 
'оновити 

ЕпсІ 1-Е 
Епсі 5иЬ 


Модуль ИзегРогтІ: 

Оіт змАрр Аз БІсІИогкз .БІсІИогкз 
Оіт уієм Аз Меіл/ Огаміп§\/іем 
Оіт сіаііа Аз Мем Ргаміп^ОаРа 

Ргіуаіе БиЬ СотЬоВох1_СМап§е() 'вибрано лист 

СотЬоВох2.Сіеаг 

Рог ЕасЬ з Іп сіаіа. БИееРз 

І-р з.Иате = СотЬоВохІ.ТехІ: ТЬеп 
Рог ЕасЬ V Іп з.уіємз 

СотЬоВох2.АсІсІІРет у.Иате 

Мехі: V 

ЕпсІ І-Р 
N6x1: з 
ЕпсІ БиЬ 

Ргіуаіе БиЬ СотЬоВох2_СЬап§е() 'вибрано вигляд 

Беї уієм = РіпсІ\/іем(СотЬоВох1.Тех1:, СотЬоВох2.ТехР, сіаіа) 

мгіРеУіеїл/РіеІсІз 

ЕпсІ БиЬ 

РгІуаРе БиЬ СоттапсІВиРРоп2_С1іск() 'кнопка заі/е 

Беї уієм = РіпсІ\/іем(СотЬоВох1.ТехР, СотЬоВох2.ТехР, сІаРа) 

геасіУіемРіеІсІз 

ЕпсІ БиЬ 

РгіуаРе БиЬ СоттапсІВиРРоп1_С1іск() 'кнопка вепегаіеРгашіпд 
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СепегаіеОгаміп^ сіаїа 
Епсі 5иЬ 

Ргіуаіе 5иЬ СоттапсІВи'І:'І:опЗ_С1іск() 'кнопка ІІрдаіеОгаміпд 
ІІрсІаїеОгаміп^ ТехіВохб.ТехІ:, сіаііа 
Епсі 5иЬ 

Ргіуаіе 5иЬ ІІзегРогт_Іпі1:іа1І2е() 'ініціалізація форми 
Оіт уіємі Аз Огаміп§\/іем 
Оіт уієм 2 Аз №« Огаміп§\/іем 
Оіт зМєєііі Аз Мем Огаміп^ЗМееі; 

Оіт 5Иее1:2 А5 Мем 0гаміп§5Иее1: 

5еі зи/Арр = Арріісаїіоп. ЗІсІІлІогкз 

тасгоРаїМ = иСа5е(5мАрр.ЄеіСиггеп1:МасгоРа-|:НРо1сіег) 

Масго21.тасгоРаіМ = тасгоРаіИ 'шлях до каталогу з макросом 
ОеЬи§.Ргіпі тасгоРаіІі 

'заповнити дані 
уіеіл/1.№те = "Огаміп§ Уіеиі" 
уіеи/2.№те = "Огаміп§ Уіеіл/2" 

уіемі.Ке-РегепсеМосІеІРаіМ = тасгоРаіМ & "\рагї1.5ЮРКТ" 

уіеи/2.Ке-РегепсеМосІе1Ра1;М = тасгоРаіМ & "ХрагіІ.ЗЮРКТ" 

уіемі.СоігРі§ига1:іоп = "По умолчанию" 

уіеи/2.СоїгРі^игаїіоп = "По умолчанию" 

уіем1.МосІе1\/іемМате = 0 

уіем2.МосІе1\/іемМате = З 

зіїееі1.№те = "ЗИееїб" 

5Нее1:2. №те = "ЗЬееїІ" 
уіемі.РозіііопХ = 0.15 
уіемі.РозіїіопУ = 0.19 
уієіл/ 2 . РозіїіопХ = 0.3 
уіеи/2. РозіїіопУ = 0.19 

зМєєііі.уіємз.Асісі уіємі 
зііееіі. уіємз.Асісі уієм 2 
сІаіа.БМее'Ііз.АсІсІ зИееІіІ 
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сіаііа. ЗИееІіБ.АсІсІ 5ЇІЄЄІ2 

'заповнити список листів 
Рог ЕасЬ 5 Іп сіаііа. ЗїіееіБ 
СотЬоВохІ.АсІсІІїет 5.Мате 
Мехі: 5 

ТехіВохб.ТехІ: = тасгоРаІМ & '\0г'аиіп§1.5Ю0КІлІ" 

Епсі 5иЬ 

РиЬІіс 5иЬ мгі1:е\/іемРіе1сІ5() 'записати дані поточного виду 
в поля 

СотЬоВох2.Тех1: = УІем.Мате 
ТехіВохІ.ТехІ: = УІеи/.МосІеІУіемМате 
ТехїВохг.ТехІ: = уієм.Р озіііопХ 
ТехїВохЗ.ТехІ: = уієм.Р озіііопУ 
ТехіВохД.ТехІ: = уіеи/. Ке-РегепсеМосІеІРа-Ні 
ТехїВохб.ТехІ: = уієм. СоітРі§ига1:іоп 
Епсі 5иЬ 

РиЬІіс 5иЬ геасІ\/іемРіе1сІ5() 'прочитати дані поточного виду 
з полів 

уіем.Мате = СотЬоВох2.Техі 
уіеи/.МосІеІУіеиМате = СІпіДТехіВохІ .Техі:) 
уіеи/. Ро5І1:іопХ = С0Ь1(Тех1:Вох2.Тех-|:) 
уіеи/. РозіііопУ = СРЬЦТехїВохЗ.ТехІ:) 
уіеи/. Ке-РегепсеМосІеІРаїМ = ТехіВохД.ТехІ: 
уіем. Соп-Рі§ига1:іоп = ТехіВохб.ТехІ: 

Епсі 5иЬ 


80ІЛШУ0КК8 8іши1а1іоп АРІ 

Нижче наведено макрос для 80ЬЮ\У0КК8 8іти1аІіоп 2018, 
який розраховує коефіцієнт запасу втомної міцності за критерієм 
Сайнса. Для роботи макросу потрібні результати двох статичних 
задач (кроків) в 80ЬЮ\У0КК8 8іти1айоп - для мінімального 
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(перший крок) і максимального (другий крок) навантаження циклу. 
Функція РОБ розраховує коефіцієнт запасу втомної міцності за 
відомими значеннями головних напружень на першому кроці 
(51_1, 52_1, 53_1) і другому кроці (51_2, 52_2, 53_2). 

Значення границі витривалості зберігається в локальній змінній 5П 
(МПа). Потрібно також ввести номери вузлів, в яких будуть 
розраховуватись значення РОБ. В даному прикладі це вузли 6313, 
6334, 6349, 198, 186. Перед запуском необхідно вибрати в меню 
Тоо18/Ксї'сгспсск... бібліотеку 80ЬГО\¥(ЖК8 8ііпиІаПоп 2018 Іуре 
ІіЬгагу. Макрос можна легко адаптувати і для інших задач. 
Наприклад для автоматизації перебудови сітки і запуску обчислення 
використовуйте методи Бііисіу . МезЬАпсІКип, 

БІіисІу.СпеаІіеМезІїО , Бііисіу.КипАпаїузіз. 


А1:1:гіЬи1:е УВ_І\Іате = "Масгоіі" 

Ріт їіл/Арр Аб ОЬ]есі: 

Ріт С05М05ІЛІ0КК5 Аб ОЬ]ЄСІ: 

Ріт СІлІОЬ]'ес1: Аб СоБтоБІлІогкБПЬ.Си/АсІсІіпсаІІЬаск 

Ріт АсШос Аб СоБтоБІлІогкБПЬ.СІлІМосІеЮос 

Ріт БїисІуМп^г Аб СоБтоБІлІогкБПЬ. СІлІ51:исіуМапа§ег 

Ріт БРисІу Аб СоБтоБІлІогкБПЬ. СІлІБРисІу 

Ріт еггСосІе Аб Ьоп§ 'код помилки 

Ріт СІлІКеБиІІ: Аб СоБтоБІлІогкБИЬ. сіл/КєбіЛСб 

'йіт ІВСМдг Аз СозтозИогкзИЬ.СИЇоасІзАпсІКезїгаіпїзМападег 

'йіт іг Аз СозтозМогкзііЬ. СІлНоасІзАпсіЯезїгаіпїз 

Ріт Расе Аб ЗІсІІлІогкБ. Расе2 

'Розраховує коефіцієнт запасу втомної міцності за 
критерієм Сайнса. 51_2 - головне напруження 1 крок 2 
(максимальне навантаження)^ '5 1_1 - головне напруження 1 

крок 1 (мінімальне навантаження), МПа 

РиЬІіс РипсНоп Р05(51_2, 51_1,, 52_2„ 52_1, 53_2, 53_1 Аб 
Р оиЬІе) 

Бп = 207 '000000 'границя витривалості 
т = 1 'коефіцієнт 
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БтЗ = 

= (53 2 

+ 

53 1) 

/ 

2 


БаЗ = 

= (53_2 


53_1) 

/ 

2 


5т2 = 

= (52 2 

+ 

52 1) 

/ 

2 


5а2 = 

: (52_2 


52_1) 

/ 

2 


Бті = 

: (51 2 

+ 

51 1) 

/ 

2 


Баї = 

= (51_2 


51_1) 

/ 

2 


РОБ = 

= (5П - 

т 

* (Бті + 5т2 + БтЗ) / 3) 

/ 5яг(((5а1 

і л 2 

+ (5а2 

- 

БаЗ) ' 

1 ; 

> + (БаЗ - Баї) л 

2) / 2) 


ЕпсІ Рипсїіоп 
БиЬ таіп() 

Оіт 5І(1 То 2)^ 52(1 То 2), 53(1 То 2) А5 ОоиЬІе 'головні 
напруження 

Беї 5мАрр = Арріісаіііоп. Б1сІІлІогк5 'об'єкт ЗоНдшогкв 

Беї СІлІОЬ^'есІ: = 5мАрр.6е1:А<^гіIпОЬ^ес1:( I, 51сІIлIо^к5.5іти1а'^:іоп I, ) 

'об'єкт Зітиіаііоп 

Беї СОБМОБІлІОККБ = СІлІОЬ^есІ:.СОБМОБІлІОККБ 

Беї АсШос = СОБМОБІлІОККБ.А сіііуєОос() 'активний документ 

С05М05М0КК5 

Беї БїисІуМп^г = АсСОос. 51:исіуМапа§ег() 'менеджер задач 
Беї Рагі: = 5мАрр.Ас1:ІУе0ос 'активна деталь 

Рог ЕасИ N Іп Аггау(6313, 6334,, 6349, 198, 186) 'вузол 
Рог і = 1 То 2 

51:исІуМп§г.Ас1:іуе51:исіу = і - 1 

Беї: Бііисіу = 51:исІуМп§г.СеІіБІїисІу(і - 1) 'задача 

'Зійду.МевНАпдКип 

'еггСоде = Зійду.СгеаіеМевб(0, 4.7, 0.25) 'створити сітку 
'гипЕггог = Зійду.КипАпаіузів 'виконати задачу 
Беї СІлІКе5и11: = Бііисіу. ге5и11:5 'результати 

МахБїер = СИКе5и1С.6е-(:МахітитАуаі1аЬ1е5'І:ер5() 

5п = СІлІКе5и11:.0е~І:51:ге55(0, МахБІїер, ІМо1:Іііп§, 3, еггСосІе) 
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'масив напружень у вузлах 

5І(і) = 5п((М - 1) * 12 + 7) 'перше головне напруження 
(МПа) 

з2(і) = 5п((М - 1) * 12 + 8) 'друге 
зЗ(і) = 5п(^ - 1) * 12 + 9) 'третє 
'йеЬид. Ргіпі і, зі(і), $2(і), зЗ(і) 

Мехі: і 

РеЬи§.Ргіпі: ^ Р05(5І(2), 5 і(1), 52(2), 52(1), 53(2), 
53(1)) 

Мехі: N 

Епсі 5иЬ 


Об'єкти МаїІаЬ Аиіотаіїоп 8егуег Туре ЬіЬгагу 

МАТЬ А В - це комерційний пакет прикладних програм для 
числового аналізу, а також мова програмування, що 
використовується в цьому пакеті. МАТЬАВ містить велику 
кількість функцій з різних областей математики (лінійна алгебра, 
статистика, обробка даних, диференціальні рівняння тощо). До цих 
функцій можна звернутись з УВА-програми за допомогою 
МАТЬАВ Аиіотаїіоп 8егуег Туре ЬіЬгагу. В прикладі показано 
створення матриць в УВА-програмі, обчислення суми матриць в 
МАТЬАВ і повернення результату в УВА-програму. Інші способи 
використання в УВА різних математичних процедур описані в [1, З, 
10, 17]. 


Ріш МаІАаЬ Аб ОЬ] 0 СІ: 'об'єкт МаНаЬ 

Ріт Ь(1, 2) Аз РоиЬІ 0 'масив (реальна частина) 

Ріт г(1, 2) Аз РоиЬІ 0 'нульовий масив (уявна частина) 

РиЬІіс 5иЬ таіп() 

50І МаНаЬ = Сгеа1:еОЬ]ес1:( "Ма'ІІаЬ.АррІіса'Ііоп") 'створити 
об'єкт МаііаЬ 
'заповнити масиви 
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Рог і = 0 То 1 

Рог ]' = 0 То 2 

Ь(і, і) = 1 'одиницями 
2 (і , з) = 0 'нулями 
№х1: з 
Мехі: і 

'виконати команди МаНаЬ 

МаіІ-аЬ.РиІіРиІІМаІігіх "Ь'А "ЬаБе", Ь, 2 ‘передати матрицю 
"Ь 1 в МаііаЬ 

МаїїІаЬ. Ехесиїїе "а = [1 2 3; 4 5 6]" ‘створити матрицю ‘а 1 
МаіІ-аЬ. Ехесиїїе "Ь = а + Ь" 'додати матриці 
'передати матрицю 'Ь' в \/ВА програму 
МаІІ-аЬ.СеіЕиІІМаігіх "Ь'А "ЬаБе", Ь, 7. 

'вивести 'Ь' 

ОеЬи§. Ргіпі: Ь(0, в), Ь(0, 1), Ь(0, 2) 

ОеЬи§. Ргіпі: Ь(1, 0), Ь(1, 1), Ь(1, 2) 

Ма1±аЬ.(2иі1: 'вийти з МаііаЬ 
Епсі 5иЬ 


Місго 80 Й БАО - об'єктний доступ до даних 

База даних - це організований набір даних, які доступні для 
машинної обробки. Реляційні бази даних складаються з таблиць, які 
містять поля (стовпчики) і рядки (записи). Для взаємодії з 
реляційними базами даних використовують предметно-орієнтовану 
мову структурованих запитів 5ОБ. Місгозой Баїа Ассе88 ОЬ)есІ8 
(ІЗАО) - прикладний програмний інтерфейс для доступу до даних 
[29, 33, 45]. Приклад створює базу даних сІЬІ.тсІЬ з інформацією 
про студентів і виконує 8()Б-запит до цієї бази даних. Перед 
виконанням виберіть в меню: ТооН/КеГегепсез/Місгозой С)АО 3.6 
ОІцссІ: БіЬгагу. 


Оіт РобочаОбласть Аз РАО.ІлІогкзрасе 'робоча область 
Оіт БазаДаних Аб РАО.Рабабазе 'база даних 
Оіт Таблиця Аб ОАО.ТаЬІеОеТ 'таблиця 
Оіт Поле Аб ОАО.Рієісі 'поле 
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Оіт Запис Аб РАО. Кєсогсібєі: 'набір записів 
Оіт Бцібіг Аз Бігіп^ 'рядок для команд 5(2/. 

РиЬІіс БиЬ таіп() 

'Створюємо робочу область 

Зеї РобочаОбласть = Сгеа1:еІлІогк5расе( , "асітіп", , 
сі Ь1)5 е □ еі:) 

'Створюємо базу даних "дЬІ.тдЬ" 

Зеї БазаДаних = РобочаОбласть.Сгеаіе0а1:аЬа5е( сІЬІ", 
сІЬБап^СепегаІ) 

Беї: Таблиця = ІМеи БАО.ТаЬІеОеТ 'створюємо таблицю 
ІлІііН Таблиця 'з таблицею 

.РіеІсІБ.АррепсІ .Сгеа1:еРіе1сІ("Прізвище", сІЬТехІ:) 
'створити поле "Прізвище" 

. Рієісіб . АррепсІ .СгеаіеРіеІсІС'Оцінка", сІЬІпТе^ег) 
'створити поле "Оцінка" 

ЕпсІ ілііі;И 

Таблиця.пате = "зіисі" 'ім'я таблиці 

БазаДаних.ТаЬІеОе-Рз. АррепсІ Таблиця 'додати таблицю 

БазаДаних.С іобє 'закрити базу даних 

Беї: БазаДаних = РобочаОбласть.0репРа1:аЬа5е("сІЬ1.тсІЬ' , 

Тгие) 'відкрити базу даних 
'Створюємо записи таблиці "яіисі" 

Беї: Запис = БазаДаних.ОрепКесогсІБеіС'Біисі", сІЬОрепРупазеІ:) 
Запис .АсШем 'додати запис 

Запис. Ріе1сІ5( Прізвище ).\/а1ие = "Іванов" 'ввести значення 
поля "Прізвище" 

Запис. Ріе1сІ5( Оцінка") .\/а1ие = 4 'ввести значення поля 
"Оцінка" 

Запис.ІІрсіаіе 'оновити 

Запис .АсШеи 'додати запис 

Запис. Р іе ІсІ 5 ( Прізвище ).\/а1ие = "Петров" 

Запис. Ріе1сІ5( Оцінка") .\/а1ие = З 
Запис.ІІрсІаіе 'оновити 
Запис.С іобє 'Закрити записи 

'Команда 5 (?/. вибирає записи з таблиці 5іид ^ де Оцінка>3 
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Бяіб-Ьг = "5ЕІ.ЕСТ * ЕКОМ 5І:исІ ІлІНЕКЕ (Оцінка>3)" 

'Створюємо записи за запитом 5£>/- 

5е1: Запис = БазаДаних.0репКесогсІ5Є-|:(5яІ5-|:г, сІЬОрепРупазеІ:) 

'Виведення записів запиту 

Запис .МоуєРігбі: 'перейти на перший запис 

Ро ІліН±1е N01: Запис. ЕОР 'поки не кінець записів 

РеЬи§. Ргіпі: Запис. Ріе1сІ5("Прізвище") .Уаіие 'вивести 

значення поля "Прізвище" 

РеЬи§. Ргіпі: Запис. Ріеісі 5 ("Оцінка ).Уа1ие 'вивести значення 
поля "Оцінка" 

Запис .М 0 VеNеx-|: 'перейти на наступний запис 

Боор 

'Закрити запис, базу даних і робочу область 

Запис.Сіозе 

БазаДаних.СІозе 

РобочаОбласть.Сіозе 

Епсі 5иЬ 


МісгояоЙ АБО - об'єктний доступ до даних 

МісгозоЙ АсііусХ Баї а ОЬ]есІ8 (АБО) - приісладний програмний 
інтерфейс для доступу до даних, оснований на технології 
компонентів АсііусХ, який є більш універсальним наступником 
технології 13А0 [19, 29, 32, 33, 42]. А ЇХ) дозволяє користувачам 
розробляти програми для доступу до різних баз даних (реляційних 
СУБД, текстових файлів тощо) без необхідності знання про те, як ці 
бази даних реалізовані. Основним об'єктом є АОСЮВ. Соппесііоп - 
унікальний сеанс з джерелом даних. В системі бази даних клієнт- 
сервер він еквівалентний мережевому з’єднанню з сервером. За 
допомогою нього ви можете налагодити з’єднання з джерелом 
даних, вказати провайдера бази даних, установити і розірвати 
з’єднання. В прикладі відкривається джерело даних "йЬІ.пкІЬ", 
виконується запит мовою і результати запиту зберігаються у 
файлі "сіЬ2.хт1". Для запуску виберіть в меню 
ТооІ.ч/Ксїсгспсс.ч/Місго.чоїї АсйуєХ Баїа 0Ь]ссІ8 2.7 ІЛЬгагу. 
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Оіт соп Аб АОООВ.Соппесііоп 'з'єднання 
Оіт Г5 Аз АОООВ. КесогсЕеІ: 'набір записів 

РиЬІіс БиЬ таіп() 

Беї соп = АОООВ.Соппесіїіоп 'створити з'єднання 
соп. Ргоуісієг = "МісгоБО-Ріі. Зе1:.ОІЕОВ.4.0" 'провайдер 
соп.Соппес1:іоп51:гіп§ = "сІЬІ.тсІЬ" 'рядок з'єднання до 
джерела даних 

соп.Ореп 'відкрити з'єднання 

Беї: Г5 = АОООВ. КесогсЕеІ: 'створити набір записів 
ГБ.Боигсе = "5ЕІ.ЕСТ * РКОМ 5І:исІ ІлІНЕКЕ (0цінка>3)" 'рядок 
запиту 5()і 

Беї: Г5.Ас1:ІУеСоппес1:іоп = соп 'активне з'єднання 
гз.Ореп 'відкрити набір записів 
Г5 .МоуєЕіг5іі 'перейти до першого запису 
Оо ІліН±1е N01: Г5.Е0Е 'поки не кінець записів 

ОеЬи^.РгіпІ; Г5. Еієісіб (0) .\/а1ие 'вивести значення 
першого поля 

ОеЬи§.Ргіп1: Г5. Еієісіб (1) .\/а1ие 'вивести значення 
другого поля 

гз.МоуєМєхі: 'перейти до наступного запису 

І-ООр 

Г5.Бауе "сІЬ2.хт1" л асІРегзізІїХМІ 'зберегти як файл ХМІ 
Г5.СІ05Є 'закрити набір записів 
соп.С1о5Є 'закрити з'єднання 

ЕпсІ БиЬ 


Об'єкти М8хт12.ВОМВоситеп1.5.0 

Розширювана мова розмітки ХМЬ (ЕхІеїшЬІе Магкир Ьап§иа§е) 
- це стандарт побудови мов розмітки ієрархічно структурованих 
даних. Документ ХМЬ складається з елементів, наприклад 
<е1>Не11о</е1>. Початок і кінець елемента позначається тегами 
<е1> і </е1>. Елемент може мати певний вміст (Неііо). Елемент 
може також містити інші елементи. Прикладами мов, основаних на 
ХМЕ, є ХІІТМЬ, 8У0, МаїШИ. 
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Об'єктна модель документа IX)М (Боситепі ОЬ]ссї Мосісі) - це 
специфікація прикладного програмного інтерфейсу для роботи з 
документами ХМЬ. ЦОМ дозволяє створювати, читати і змінювати 
ХМЬ документи. IX)М подає ХМЬ документи як деревовидну 
структуру, де кожен вузол є об’єктом, що відповідає частині 
документу. М 8х т 12. ЦО МІ)оси тспІ - це реалізація інтерфейсу IX) М 
[19]. 


'Примітка: * - Місгозо^і розширення ІлІЗС ИОМ 

РиЬІіс 5иЬ таіп() 

Ріт хтісіос Ая ІМем М5ХМ12.ООМОоситеігІ:50 'створити об'єкт 
хті документ 
'або так: 

'Иіт хтісіос Ая М5ХМІ2.ООМОоситеп±50 

'5еі хтісіос = СгеаіеОЬоесі("Мзхті2.00МОоситепі. 5.0") 

Ріш сіосіМосіє, еІІІМосІе, е121\ІосІе, посіє Ая М5ХМІ.2. ІХМЮОМІМосІе 
'об'єкти хті-вузли 

Ріт ІхІІМосІе Ая М5ХМІ.2. ІХМЮОМТехІ: 'об'єкт хті текстовий 
вузол 

Ріт еі Ая М5ХМІ.2.ІХМЮОМЕІетепІ: 'об'єкт хті-елемент 
Ріт аіг Ая М5ХМІ.2.ІХМЮОМАЇЇгіЬи'Ье 'об'єкт хті-атрибут 

'*завантажити документ з рядка 
хтісіос. ІоасІХМІ. _ 

"<?хт1 уегяіоп=' 1.0' ?>" + уЬІМемИпе + _ 

"<сіос їгЬ1е=' ту' >" + уЬІМеїХіпе + _ 

” <е11 а!г1=' 1' >” + уЬІМеи/Ипе + _ 

<е12 а1:г1='Меііо' >" + уЬІМеи/Ипе + _ 

Неііо могісі!" + уЬІМемИпе + _ 

</е12>" + уЬІМеїХіпе + _ 

" </е11>" + уЬІМеї/Хіпе + _ 

"</сіос>" + уЬІМеи/Ипе 

хтісіос. 5ауе "е:\\ту.хт1" ' *зберегти документ 

Ріт Ь Ая Вооіеап 

Ь = хтісіос. І-оасІ ( 'е:\\ту. хті") '*завантажити документ 
1-Е Ь ТЬеп 'якщо завантажено ^ тоді _ 
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Беї: сіосіМосіє = хтісіос.сІоситепІЕІетепІ: 'кореневий 
елемент 

Беї: еІІІМосІе = сіосіМосіє . РігзІСИіІсІ 'перший дочірній 
вузол вузла досNоде 

Беї: е12І\ІосІе = еІІІМосІе. РігзІСИіІсІ 'перший дочірній 
вузол вузла е^1Nоде 

Беї: 1:х1:МосІе = е12І\ІосІе. РігзІСИіІсІ 'перший дочірній 
вузол вузла е!2Л/ос/е 

0еЬи§.Ргіп1: ІхІІМосІе.І\ІосІе\/а1ие 'вивести текстове 
значення вузла 

Беї: еі = хтісіос. сгеа1:еЕ1етеп1:( еІЗ") 'створити вузол 
елемента з іменем еІЗ 

єі.Тєхі: = "Неііо!!!" '*текстовий вміст вузла і 
підвузлів 

Беї: аіг = хтісіос.сгеа1:еА1:1:гіЬи1:е('аііг") 'створити 
атрибут з іменем аііг 

аІг.УаІие = "10" 'значення атрибута 

еі. зе1:А1:1:гіЬи1:еМосІе аіг 'установити вузол атрибута аіг 
в елемент еі 

сіосіМосіє . аррепсІСМіІсІ еі 'додати дочірній вузол як 
останній 

Беї посіє = сіосіМосіє. ЕазїСИіІсІ. С1опеІ\ІосІе(Тгие) 

'клонувати останній дочірній вузол з підвузлами 

сіосіМосіє .ІпзегІВе-Роге посіє, еІІІМосІе 'вставити дочірній 
вузол перед еіІМоде 

сіосіМосіє . КетоуеСІ'ііїсІ посіє 'видалити дочірній вузол поде 

сіосіМосіє . аррепсІСМіїсІ хтісіос. сгеаІеТехІІМосІе ("іїеііо") 
'додати дочірній текстовий вузол 

Оіт 5 Аз \/агіап1: 

Беї посіє = сІосМосІе.СІ-ііІсМосІез.ІІетСв) 'дочірній вузол 
з індексом 0 (перший) 

з = посіє. посІеІМате 'ім'я вузла 

з = посІє.ІМосІєТурє 'тип вузла _ 
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5 = посіє.І\ІосІе\/а1ие 'текстове значення вузла 
5 = посіє.НазСНіІсИМосІез 'чи вузол має дочірні вузли 
5 = посіє. Техі: ' *текстовий вміст вузла і підвузлів 
5 = посіє. ХМ І. '*ХМІ вузла і підвузлів 
5 = посіє. ОаІаТуре ' *тип даних вузла 
5 = посіє. рагзесі ' *перевіряє чи вузол і підвузли 
проаналізовані 

5 = посІе.Рагеп1:1\ІосІе.посІеІМате 'ім'я батьківського вузла 
5 = посіє.І\Іех1:5іЬ1іп§. посІеІМате 'ім'я наступного 
спорідненого вузла 

5 = посІе.СІіі1сІМосІе5.І1:ет(0).посІеІ\Іате 'ім'я дочірнього 
вузла з індексом 0 

5 = посіє. АїїгіЬиїЄБ. І_еп§-|:Іі 'кількість атрибутів вузла 
5 = посіє. А1:1:гіЬи1:е5. І1:ет(0) . І\ІосІе\/а1ие 'текстове 
значення атрибута з індексом 0 

5 = посіє.АІііігіЬиііез. І1:ет(0) . зресі-ріесі '*чи заданий 
явно ^ чи за замовчуванням 

5 = сіосіМосіє.СИ і1сІІ\ІосІЄ5. І1:ет(0) .ОмпегОоситепІ:.посІеІМате 
'ім'я кореня документа 

5 = хтісіос. §е1:Е1егпеп1:5ВуТа8І\Іате( "е12 ). Іеп§1:ії 
'кількість елементів з тегом еі2 

5е1; еі = хтісіос. §е1:Е1етеп1:5ВуТа§І\Іате ('е12"). І1:ет(0) 
'перший елемент з тегом еі2 

5 = еі. посІеІМате 'ім'я вузла 
5 = е1.1:а§І\Іате 'ім'я тега 

5 = е1.бе1:А1:1:гіЬи'Ье( аігі ) 'значення атрибута аігі 
еі. вєііАііііг іЬиііеМосІе хтісіос. сгеаїеАїїгіЬиїе ("Оаііа") 
'створити і установити атрибут Оаіа 

еі. зеїАІіІігіЬиІіе "Оаііа", "Іосіау" 'задати значення 
атрибуту Оаіа 

5 = е1.§еїА1:1:гіЬи'І:еМосІе( Оаїа").\/а1ие 'значення 
атрибута Оаіа 

ОеЬи§.Ргіпі 5 

хтісіос.5ауе "е:\\ту.хт1" '*зберегти документ 

ЕпсІ 1-Е 
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ЕпсІ 5иЬ _ 

<?хт1 уєг5іоп="1.0"?> 

<сіос тіе="ту" > 

<е11 а1:г1="1"> 

<е12 а1г1="Ие11о" Ра1:а= 4осІау"> 
Неііо ногісі! 

</е12> 

</е11> 

<е13 а41:г="10">Не11о! ! !</е13> 

Иеііо 

</сіос > 


Об'єкти Іпїегпеї Ехріогег 

Об’єктна модель браузера ІпїегпсІ Ехріогег дозволяє УВА- 
програмі звертатись до його компонентів, зокрема документа НТМЬ 
[42]. Приклад створює об’єкт ІпІегпсІ Ехріогег, показує браузер та 
створює в ньому НТМИ-документ з таблицею (рис. 3.10). 


Оіт ІЕ А5 ОЬ]ес1: 'об'єкт програма Іпіегпеі Ехріогег 
РиЬІіс 5иЬ таіп() 

5е1: ІЕ = Сгеа1:еОЬзес1:("Іп1:егпе1;Ехр1огег.Арр1іса1:іоп") 
'створити об'єкт 

ІЕ.ІМах/і^аІіе "АЬоиІ:: Віапк" 'початкова сторінка 
ІЕ.ТооІЬаг = РаІ5Є 'відключити панель інструментів 
ІЕ.БІіаІгизВаг = Раїве 'відключити рядок стану 

Оо 

Ьоор Ілібіїе ІЕ.Визу 'цикл "поки браузер зайнятий" 
ІЕ.УіьіЬІе = Тгие 'зробити видимим 
'заголовок біті документу 

ІЕ.РоситепІі.иігіІіе "<И1:т1><1:і1:1е>Му 4аЬ1е</1:і1:1е><ЬосІу>" 

ІЕ.ОоситепР.ІлІгіІіе "<р>ТаЬ1е 1</р>" 'абзац 
ІЕ.РоситепІі.ІлІгіІіе "<1:аЬ1е ЬогсІег=1>" 'таблиця 
'заголовок таблиці 
ІЕ. Роситепі:. Іліг іЕе 

"<4г><1:сі><Ь>М</Ь></-|:сІ><-|:с1><Ь>І\Іате</Ь></-|:сі></-|:г>" 
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Рисунок 3.10 - НТМЬ-документ в Іпісгпсі Ехріогег 


Об'єкти Місго 80 Й 8реесЬ ОЬ]есї ІлЬгагу 

Місго 80 Й 8реесЬ ОЬ]ссі ІлЬгагу містить об’єкти для роботи з 
синтезатором мовлення \\0пс1о\¥8 (програмою для перетворення 
тексту в мовний сигнал). Приклад показує як можна легко озвучити 
вашу програму. Виберіть в меню ТооН/КеГегепсез/Місгозой 8реесЬ 
ОЬіссС ІлЬгагу. 


Ріт V А5 БреесНИЬ. БрУоісе 'голос 
РиЬІіс БиЬ таіп() 

Беї V = БреесИНЬ.БрУоісе 'новий голос 
Беї У.Уоісе = \/.Се1:\/оісе5("Мате=Місго501 : 1: Бат”, 
"І.ап§иа§е=9 ).І1:ет(0) 'параметри голосу 
У.Бреак "Ьеііо" 'сказати слово 

ЕпсІ БиЬ 


116 





















РОЗДІЛ 4. ЗАДАЧІ 


1. Створити програму для обчислення значення функції Дх), якщо 
і= 1. Звірити результат з графіком (рис. 4.1). 




1.2 - 


1.0 - 


0.8 - 


0.6 - 


0.4 - 


1 


-1 


о 


Рисунок 4.1 - Графік функції Дх) 


2. Створити програму для обчислення значення функції §(х), якщо 
я=-0,5; Ь= 0,5. 


Г 0, х < а 

З 60 = /(ж), а<х <Ь 

і х, х > Ь 


3. Розв’язати попередню задачу з використанням підпрограми - 
функцїї, яка повертає значення Дх). 

4. Створити програму для виведення списку значень функції Дх), 
якщо х змінюється від -1 до 1 з кроком 0,1. Використати оператори 
циклу Гоп, сіо або шііііе. 

5. На основі попередньої програми зберегти значення аргументу в 
одновимірний масив X, значення функції в одновимірний масив V. В 
двовимірний масив XV зберегти значення аргументу і функції. 
Знайти в цих масивах значення, які більші 0. 

6. Знайти наближене значення інтеграла ЛіЯОгіж з кроком 
інтегрування 0,1. Використати оператори циклу. 

7. Визначте тривалість обчислення значення функції Дх) і її 
інтеграла на вашому комп’ютері. 
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8. Знайти наближене мінімальне і максимальне значення функції 
Дх) на проміжку [-1, 1], якщо крок х рівний 0,1. Використати 
оператори циклу і умови. 

9. Знайти наближено корінь рівняння Дх)=1 на проміжку [-1,1], 
якщо крок х рівний 0,1. Використати оператори циклу і умови. 

10. Створити словник, ключами якого є елементи (-1, 0, 1), а 
значеннями - відповідні значення функції Дх). Вивести усі ключі і 
значення. 

11. Створити довільний рядок. За допомогою операторів циклу і 
умови замінити задані символи (або слова) в рядку на інші. 
Розв’язати цю ж задачу за допомогою функції Керіасе. 

12. Створити довільний рядок. За допомогою операторів циклу і 
умови замінити текст в дужках на три крапки (...). Розв’язати цю 
ж задачу за допомогою бібліотеки МісгокоЙ V ВЯсгі рї Ксішіаг 
ЕхрГЄ88ІОП8 5.5. 

13. Дано множини А= {1,2,3,4} і В={3,4,5,6}. Знайти об’єднання, 
перетин, різницю і симетричну різницю цих множин. Для 
збереження елементів множин можна використати 
ЗсгірНгщ.ВісЦопагу. 

14. Створити рекурсивну функцію Дх,п), де п - додатне ціле число: 

ч ( х 2 , п = 0 

1/(ж 2 , п - 1), п ^ 0. 

15. Записати у текстовий файл значення аргументу х і функції Дх), 
якщо х змінюється від -1 до 1 з кроком 0,1. Виконати пошук у 
створеному файлі значення ДО). 

16. Записати у бінарний файл довільного доступу значення 
аргументу х і функції Дх). Виконати пошук у створеному файлі 
значення ДО). 

17. Від дати 2019-01-02 02:17:01 відняли Іеб секунд. Яка це дата? 
Який це день тижня? 

18. Створити клас, який містить змінні (властивості) хтіп, хтах, (їх і 
методи Дх), Х(), Р(), які, відповідно, повертають значення функції, 
список значень аргументу х, список значень функції Дх). Створити 
об’єкти класу. 
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19. Створити клас, який містить методи, що повертають значення 

функції /(х о), похідної 

/'(х 0 ) = сі/(х 0 )/с1х » (/(х 0 + Ах) -/(х 0 ))/Лх і інтеграла 

х о „ 

Р(х 0 ) = І /(х)сіх ~ ^/(х, )Лх в заданій точці х а , де 

*ШІП ' = 1 

п = (х 0 -х тіп )/Ах. 

20. Створити клас, який описує поняття вектора {а^ а 2 ,а 3 } і містить 

функції для обчислення його довжини +аІ + а 3 , додавання 

з 

двох векторів с і =а і +Ь і , скалярного множення с = у\т/х і 

і=і 


векторного множення: 


с-а^Ь- 


а 2 -Ь 3 


а 3 -Ь 2 


■Ь ] - а, 7т 3 
■ ^ ^2 * ^1 


21. Розробити бібліотеку БІХ мовою С з функцією, що повертає 
список значень функції/(х). Викликати цю функцію з УВА. 

22. Розробити програму з графічним інтерфейсом для виведення 
значення функції Дх). Передбачити обробку виняткових ситуацій, 
які виникають під час введення недопустимих значень аргументу. 

23. Розробити програму з графічним інтерфейсом для виведення 
списку значень функції Дх). Використати такі елементи керування 
як СоттапсІВи1:1:оп, І_аЬе1, ТехЕВох, СІїескВох, ОрЕіопВиЕЕоп, 
ИзЕВох, БсгоІІВап. 

24. З програми УВА записати у два стовчики листа Ехсеї значення 
аргументу х і функції Дх), якщо х змінюється від -1 до 1 з кроком 
0,1. Виконати пошук у створеному листі значення ДО). 

25. В УВА-програмі згенерувати випадкову вибірку на листі Ехсеї. 
Обчислити емпіричні середнє значення та середньоквадратичне 
відхилення шляхом виклику функцій Ехсеї. 
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26. З програми УВА побудувати графік функції Дх) за допомогою 
СНагУ 

27. За допомогою Сіїагі: знайти регресію виду ?(х) = сис~ + Ьх+ с 
за даними х, у (табл. 4.1). Знайти коефіцієнт детермінації Д 2 . 

Таблиця 4.1- Емпіричні дані - зал ежність у від х 


X 

0 

1 

2 

3 

у 

0 

1 

4 

10 


28. Створити програму, яка додає в документ \¥огс! значення 
перших двох комірок Ехсеї і виділяє перше слово жирним 
шрифтом. 

29. З УВА-програми зберегти у текстовий файл список елементів 
поточного каталогу і вкладених каталогів. Визначити розмір їх 
файлів в байтах. Створити новий каталог і скопіювати в нього цей 
текстовий файл. 

30. За допомогою 80ЕШ\У0КК8 АРІ змінити розміри довільної 
параметричної моделі 80ЕШ\У0КК8, перебудови її і обчислити 
об’єм тіла. 

31. За допомогою ЗОиїЗ'АСЖК.З АРІ змінити рівняння довільної 
параметричної моделі 80ЕШ\У0КК8 з рівняннями, перебудови її і 
обчислити моменти інерції. 

32. За допомогою 80ЕШ\У0КК8 8іти1айоп АРІ створити програму 
для пошуку значення параметра моделі (в заданій множині значень), 
яке спричиняє в ній мінімальні напруження. 

33. Розв’язати задачі про пошук коренів рівняння Дх)=1, мінімуму 
функції Дх) і її інтеграла шляхом доступу до об’єктів МАТЕАВ з 
програми УВА. 

34. Розв’язати систему лінійних рівнянь за допомогою об’єктів 
МАТЕАВ: 

а + Ь + с = 4, 

2а — Ь + 2с = 2, 
а + 2Ь — с = 4. 

35. Дано рядок, який містить підрядки <ключ>=<значення>. 
Зберегти усі ключі і значення у базу даних. Прочитати з бази даних 
значення за заданим ключем. Використати Місгозой БАО або АБО. 
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36. Створити програму, яка записує значення функції /(х) у ХМЬ- 

документ в такому вигляді: <роіп1:><х>0.1</хху>- 

1.25</ух/роіп1:>. Використати М8хт12.ВОМВоситепІ. 

37. Створити програму, яка шукає в ХМЬ-документі з попередньої 
задачі значення у>0. Використати М.чхпі12.С)ОМОоситст. 
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